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MICRO-80 is an international magazine devoted entirely to the Tandy TRS-80 microcomputer and the 
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Aus.$ except for U.K. prices which are in pounds Sterling). 
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The purpose of MICRO-80 is to publish software and other information to help you get the most from 
your TRS-80, System 80 or Video Genie and their peripherals. MICRO-80 is in no way connected with 
either the Tandy or Dick Smith organisations. 

** WE WILL PAY YOU TO PUBLISH YOUR PROGRAMS ** 

Most of the information we publish is provided by our readers, to whom we pay royalties. An 
application form containing full details of how you can use your TRS-80 or System 80 to earn some 
extra income is included in every issue. 

** CONTENT ** 

Each month we publish at least one applications program in Level I BASIC, one in Level II BASIC and 

one in DISK BASIC (or disk compatible Level II). We also publish Utility programs in Level II 

BASIC and Machine Language. At least every second issue has an article on hardware modifications 

or a constructional article for a useful peripheral. In addition, we run articles on programming 

techniques both in Assembly Language and BASIC and we print letters to the Editor and new product 

reviews. 

** COPYRIGHT ** 

All the material published in this magazine is under copyright. That means that you must not copy 
it, except for your own use. This applies to photocopying the magazine itself or making copies of 
programs on tape or disk. 

** LIABILITY ** 

The programs and other articles in MICRO-80 are published in good faith and we do our utmost to 
ensure that they function as described. However, no liability can. be accepted for the failure of 
any program or other article to function satisfactorily or for any consequential damages arising 
from their use for any purpose whatsoever. 
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***** EDITORIAL ***** 

From the response we have had so far, it seems we struck the jackpot last month with our program 
listings using the normal size, emphasised print mode on the MX-80 printer. A number of readers 
have written commending this presentation so that will be our standard format from now on. 
We have made one slight adjustment this month and that is that we have used a special machine 
language program developed by Eddy Paay to control the line length of the listing to be exactly 
the same as on your screen, 64 characters. So what you see in print is what you will see on 
the screen. 

A number of readers have requested that we illustrate as many of our programs as possible by 
showing the screen presentation they can expect to see. We have started doing so this issue 
via NEWDOS 80" s screen dump facility and the MX-80' s ability to print the 80' s graphics set. 
Space permitting, we will do this more often in future issues. 

Some time ago, we predicted that Tandy would discontinue sales of the Model I TRS-80 in Australia. 
We expected that it would have happened before now but a cancelled order by a large OEM left 
Tandy with considerable stocks. These are currently being cleared out at bargain basement prices, 
and it will not be long before our prediction will come true. We suppose that all good things 
must come to an end but we cannot help feeling sad at the passing of such a remarkable machine. 
We, and many others around the world, will continue to support the Model I for a long time to 
come so owners should not feel let down. Meanwhile, the Model III is shaping up as a worthy 
successor to the Model I and continues to impress us as we become more familiar with it. The 
earlier fears about software incompatibility have proven to be a little exaggerated, at least 
as far as BASIC programs are concerned. The refinements made over the Model I are all worthwhile 
and we are particularly impressed with the performance of the disk version, especially our own 
1.4 megabyte system using MPI B92 disk drives. 

The tradition of the Model I, of course, lives on in the System 80/Video Genie. From the U.K. 
we hear that a colour version of the Video Genie is imminent, whilst in Australia the business 
version has been available for several months. In the business version, the on-board cassette 
deck has been replaced by a numeric keypad, a lower-case display is fitted and an extra 2K of 
ROM has been installed in the previously unused area of memory addresses immediately above the 
BASIC interpreter. This ROM includes the lower-case driver routines and serial port driver 
routines. The business version of the System 80 is primarily intended to be used in disk systems 
for which the existing expansion interface is required. 

Red Faces Department. Some little time ago, we received a letter from a reader containing draft 
manuscripts of the first three articles in a proposed series of about 10 articles, giving a 
guided tour of the '80' s system RAM via the use of PEEK and POKE statements. We were so impressed 
that we put the letter in a safe place for an early reply which would have requested him to 
submit the complete series for publication. Yes, you've guessed what happened. That place 
was so safe that we still haven't found the letter! So please, inadvertently anonymous author, 
get in touch with us again so that we can bring your interesting series to all our readers. 

- 0000000000 - 



***** BETTER BASIC PROGRAMMING - PART 2 - by Rod Stevenson ***** 

***** ARRAYS ***** 
INTRODUCTION 

Many are frightened off by the mere mention of arrays and while we can truthfully say there 
is no need to be concerned, we also see this will not help. So therefore we hope this article 
will go a long way to making these rather useful functions more widely used. 

We must admit though, we tend to use strings where others use arrays - this because of the very 
powerful string functions in our version of BASIC; other versions do not have such possibilities. 
But they do have more intensive array functions. Infinite BASIC will provide more of both string 
functions and array functions at a price of $49.95. This is, after all, a personal preference 
as often the job can be done equally by string or array; one's ability with one or the other 
tends to be the deciding factor. 

During discussion at the Adelaide Users' Group following one of our talks on this very subject 
of arrays, there emerged confirmation of a theory we had fuzzily held for some time. This is 
that the only difficulty with arrays is the proper understanding of the principle. Once this 
really is "understood we can say, with absolute confidence, that you will never have any difficulty. 
Unfortunately, though, we cannot just give this understanding. All we can do is explain our 
way of thinking, and suggest you spend time thinking along the same lines until it really "clicks"; 
and it will. It's as though there is a "threshold" to pass - once over, no-one sees why there 
was ever a problem. How long did you take to work a telephone book which is, after all, a two 
dimensional array? 
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HOW ARRAYS ARE STORED 

An example of the need for true understanding is that you must really know the way you are going 
to need to access and use the data before you put it in. In other words, you must get it out 
the same way it went in. For instance, if you want to output to a printer in tabular form, 
you'll need the greater dimension to be vertical, for the practical reason that it will better 
fit on the paper. 

However, all this business of numbers of dimensions, x, y, z directions, etc. is for our human 
way of thinking. The computer actually stores the data which composes the array in the same 
way it stores any other data. It doesn't really care that the human operator has chosen to 
have an array - there is only the one way the computer can store data anyway. Certainly (for 
example) the operating system keeps pointers to tell it that the operator will expect the data 
in location 27643 to be the nth element in an x dimensional array which has been dimensioned 
to z in each of its dimensions, and will accept alphanumeric data. These pointers could, however, 
have indicated that the data in that same memory location is an integer single precision number. 

So you see the truth of our previous assertion that it really is only a problem (if there is 
one) of human understanding to make the fullest use of the array capabilities of the Level II 
BASIC. 

PRELIMINARIES 

As explained in the manual, and in almost any text on arrays with BASIC, it is necessary to 
dimension the array to whatever size you wish to use it. This means both number of dimensions 
and number of elements in each dimension. At this point, you will also need to decide what 
variable name to assign to the array - and keep to it! For example, DIMA$(21,45) will give 
an array called A, which will accept alphanumeric data in two dimensions, with 21 pieces in 
the first dimension and 45 pieces in the second. Yes, we know the "wise ones" will exclaim 
that arrays start at 0, but we prefer to have you ignore this until you are completely confident 
to overcome the "stupidly simple" irritations of complexity this can cause. True, it is a waste 
of memory, but so what? 

The default (that means, if you don't do it) is 10 in two dimensions and we must admit that 
we don't bother to dimension if it is less than 10 - though again, "wise ones" will despair 
at the blatant waste of memory. We do, however, dimension if there is more than one dimension. 
Beware of using up more memory than you have by dimensioning too many dimensions too big. Remember 
- A (20, 20, 20) will take up 8000 bytes in addition to the overhead of 12 bytes required by all 
arrays . 

As with normal strings, space must be CLEARed for a work area big enough to contain the total 
expected array elements plus the longest one again. This CLEARing should be done before DIM, 
right at the start of your program. 

Any of the normal variable names can be used as an array name. You can define them as integer, 
single precision, double precision, as needed, and again, memory will be saved. But again, 
we usually omit anything that seems unnecessary. Yet again in this article, as in the last 
one, may we suggest the use of meaningful variable names as array names. It is just a way of 
thinking, but it does seem to us logical to have an array called D if it will contain rates 
of discount allowed. 

ACCESSING ARRAYS 

If there is anything difficult about the use of arrays, it is that they can be accessed in so 
many ways. It is when accessing arrays (whether to read or write) that the importance of the 
idea at the start of this article applies: think about the whole concept of an array until 
you are totally at ease with it. Obviously, whatever way data is put into an array for storage 
is the way it must be got out. Too often this simple point is overlooked - we can only assume 
through a lack of basic understanding of the mechanism. Remember that we said that the important 
thing is how the human operator thinks of his array - the computer doesn't really care, as it 
stores the data the same way regardless. 

Now to details. The name you choose for the array variable is the one it is stored under. 
It must remain the same from start to finish. However, the elements in the array (called sub- 
scripts) will have numbers allocated to them by the operating system (see Diagram 1, left), 
and will always start from 1 (actually 0, but as we said earlier, disregard this) and proceed 
in numerical sequence for however many elements you need to have. 

This is probably what makes arrays so useful and easy to access - instead of having a value 
stored in a series of different variable names, lots of pieces of data can be stored under the 
same variable name, just being identified by their own individual subscript. Rather like a 
family all living under one roof but still being total individuals. 
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DIM A(10) 



A(l) 



A(2] 



A(3) 



A(4) 



A(5) 



A(6] 



A(7) 



A(8) 



A(9) 



A(10) 



So, any slot in the array can be accessed by using a variable as the subscript value. If X 

% 'c-nn en \ ( ,ri-r\ S exactl y ec 1 ual to A < 3 )- wh at really stands out here is the extreme suitability 
of a FOR NEXT loop. J 

1 . For input. 

10 FOR I = 1 to 10 

20 PRINT "VALUE FOR ELEMENT" I; : INPUT A(I) 

30 NEXT I 

Or instead of input from a keyboard, have the array filled by DATA lines. 

10 FOR I = 1 to 10 
20 READ D:A(I)=D 
30 NEXT I 

2. For output. 

10 FOR I = 1 TO 10 

20 PRINT "VALUE NUMBER";I;"IS"A(I) 

30 NEXT I 

However, individual elements can be accessed just as simply by the use of a variable to 
specify the subscript. 

10 INPUT"DISCOUNT CODE"; I 

20 PRINT"TOTAL IS"T-(T*A(I)/100) 

Both of these last examples are extreme in their simplicity. The array may merely be the 
end storage place for the result of a long and complex calculation, and it may be the source 
of the initial data to start off the same long and complex calculation. It can even be 
contained within a large FOR... NEXT loop with the end result being replaced where it initially 
came from. 

ONE DIMENSIONAL ARRAYS 

These are perhaps the most common, also called vectors. There really is little difference between 
this and a string. The only practical point is that arrays are already provided with computer- 
made subscripts, whereas the user must furnish them to use a string. In fact, we use strings 
rather than one-dimensional arrays. There is also a memory-saving but this is' not significant 
enough to worry about. 

The uses of one-dimensional arrays are so numerous that it is hard to imagine the total possib- 
ilities. But in reality, all of these uses are based on the fact that the array is a ready- 
made table of data. 

As mentioned above, a table of discounts can be an array to be accessed by an input number or 
even by another array or look-up table. This last is a little advanced to cover yet. 



As a look-up table for input checking, the array is particularly suitable 
in the instalment on checking input. 



More about this 
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Perhaps a practical example of checking data using an array. This program is a simple number 
generator for cross lotto games. It uses an array to check if the current number generated 
by RND has previously been generated. Clearly, this is a rather simplistic example. It does 
show how to check with an array, however. Of course, the calculation to arrive at the data 
could well be more complex than the simple RND function, but the principle is the same. The 
array need not contain all zeros either - could well be some form of data check system. 

100 DIM A (40) 'DIMENSIONS THE LOOK-UP ARRAY TO 40 

110 FOR J = 1 TO S '8 SETS OF NUMBERS 

120 FOR I = 1 TO 40 s A(I> = O : NEXT I 'SETS EACH ELEMENT IN T 

HE ARRAY TO ZERO 
130 FOR I = 1 TO 6 '6 NUMBERS IN EACH SET 

140 X = RND (40) 'BENERATE A RANDOM NUMBER 

150 IF A(X) <> O THEN GOTO 140 'CHECKS IF ARRAY ELEMENT EQUAL 

TO RANDOM NUMBER IS 0. IF NOT 
THE NUMBER HAS BEEN PREVIOUSLY GENERATED. 

160 A(X) = X 'ARRAY ELEMENT EQUAL TO NUMBER 6ENERATED NO LONGE 

R EQUAL TO ZERO 
170 PRINTUSING "####"5X5 'PRINT USING FORMATS OUTPUT. MORE ON 

THIS IN THE LATER ARTICLE ON IT 
180 NEXT I 'NEXT NUMBER IN SET 

190 PRINT 'SEPARATE LINES FOR EACH SET 

200 NEXT J 'ANOTHER SET OF 6 

To save a plethora of letters which we are sure would otherwise be precipitated, perhaps a small 
divergence into the nature of random numbers. 

The more technical aspects of this was the subject of a piece in the Adelaide Users' Group news- 
letter, and we don't really feel it's appropriate here. Suffice it to say that the RND function 
can be fooled into producing a non-random sequence by POKEing values at appropriate points in 
the program. 

What we do want to repeat here is that if the cross lotto selection is truly random, there is 
no way to predict successive results. In fact, the sequence 12 3 4 5 6 could well be chosen 
at random. Of course, we as humans would strongly doubt that it is random: it is. Random simply 
means that any number has as much chance as any other of selection. Clearly, the fact that 
its preceding-numbered neighbour was just picked should in no way influence that equal chance. 
Nor should the fact that it has been chosen six preceding times - each choice is an event of 
its own with no relationship to any other choice. 

Over a large period of selections one would expect each number to be selected an equal number 
of times. By a large period of selections we really do mean large - millions. To test this 
theory a simple program to tablulate the general -frequency of the RND selector will illustrate. 

90 D I MA (40) 'DIMENSION ARRAY FOR COUNTING 

100 F0RI=lT040sA(I)=0:NEXT 'ZERO ARRAY BEFORE START 

110 INPUT "HOW MANY" 3 N 'NUMBER OF NUMBERS TO GENERATE 

120 F0RI=1T0N 'DO IT N TIMES 

1 30 X=RND ( 40 ) s A ( X ) =A ( X ) + 1 s ' GENERATE A RANDOM NUMBER , COUNT I T 

140 NEXT I 'DO IT AGAIN 

150 F0RI=1T040:PRINTI;A(I) , sNEXT 'PRINT ARRAY OF COUNT 

160 PRINTTAB( 14) "TOTAL GENERATED ="N 'TOTAL NUMBER GENERATED 

170 PRINT; GOTO 100 'RETURN FOR ANOTHER LOT 

By experimentation, you will see the higher number you specify, the more equal will be the times 
each one is selected. You could also test the inclusion of the RANDOMIZE function by puttinq 
this in line 80. K 3 

TWO-DIMENSIONAL ARRAYS 

It is here that some lose the ability to come to grips with arrays - also called a matrix 
But there is really no need to. We do implore that if you haven't already done so, you stoD 
now to truly dwell on the nature of multi-dimensional arrays. 

The way we mentally picture it - remember we said earlier that it's how you imagine things that 
matters - is as a square made up of smaller squares with each box representing one array element 
While this may seem simplistic we have had no program revolt on us; until we do, we will continue 
to think in this way. 
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DIM A(4,5) 



A(l,l) 


A(l,2) 


A(l,3) 


A(l,4) 


A(l,5) 


A(2,l) 


A(2,2) 


A(2,3) 


A(2,4) 


A(2,5) 


A(3,l) 


A(3,2) 


A(3,3) 


A(3,4) 


A(3,5) 


A(4,l) 


A(4,2) 


A(4,3) 


A(4,4) 


A(4,5) 



The above diagram shows the earlier one-dimensional array which went vertically down the page, 
having had each row extended sideways into a second dimension. 

The use of such two-dimensional arrays is also legion: wherever a second set of information 
depends on, and belongs with, a first set. The common telephone book is an obvious example 
- if the names were not present there would clearly be no need for numbers, and the numbers, 
of course, would be useless without names. However, there is a trap in thinking that the second 
dimension is limited to one piece of data, forgetting that just as the first dimension extends 
downwards, so the second one extends across. Consider a payroll array: employee number in the 
first (downwards) dimension, days of the week in the second (across) dimension. 

MULTI -DIMENSIONAL ARRAYS 

As far as your writer is concerned, three-and-more dimensions become a little academic. We 
can well understand their use in pure maths, three-dimensional plotting, multiple critical path 
decisions.' Of this last use, the Tandy Visicalc program is an excellent example, though we 
do wonder at (and would be mentally quite unable to cope with) a 255 dimension array which is 
theoretically possible if the computer has enough memory. As far as optimum path choice goes, 
we find it simpler to use a set of FOR... NEXT loops, keeping only the pieces of data and decisions 
which lead to the best end result. However, we hope the reader can see that it would be easy 
enough to store each of these sub-results and decisions in arrays along the way. 

In three-dimensional arrays, conventionally x is the first, y is the second, z is the third. 

STRING ARRAYS 

We must confess that we find these the most useful of all arrays - possibly following our partiality 
to strings. 

The string array is exactly like the numeric array except that it has been defined as a string 
array and so is able to accept alpha as well as numeric data. 

There is some possibility for confusion as to the length of each string capable of being stored 
in each element of the array. Following the example of numeric arrays, a casual thought may 
be that only one character can be held in each element. This is not so: while each numeric 
array element can hold only one number, this will take more than one byte (up to 8). Similarly, 
the string array can hold up to 255 characters in each element (providing string space is available, 
and you don't run out of memory). 

The listed program will produce an array like this but, of course, without the lines which have 
been put in only to aid in the human way of thinking of an array as a series of boxes. 



DIM A$(4,5] 



A$(l,l) 
SMITH 


A$(l,2) 
TOM 


A$(l,3) 
NORWOOD 


A$(l,4) 
HOLDEN 


A$(l,5) 
24 


A$(2,l) 
JONES 


A$(2,2) 
BILL 


A$(2,3) 
MILE-END 


A$(2,4) 
FORD 


A$(2,5) 
43 


A$(3,l) 
BAKER 


A$(3,2) 
ALICE 


A$(3,3) 
ADELAIDE 


A$(3,4) 
DATSUN 


A$(3,5) 
17 


A$(4,l) 
VAGG 


A$(4,2) 
DELPHINIA 


A$(4,3) 
SPRINGFIELD 


A$(4,4) 
MERCEDES 


A$(4,5) 
36 



ISSUE 19 (JUNE 1981) MICRO-80 PAGE 7 

90 CLEAR 300 ; REMON 

100 DIM A* (4, 5) 'SIZE OF EXAMPLE ARRAY 

110 FOR I = 1 TO 4 'NEXT J, I 

120 FOR J = 1 TO 5 'Y DIMENSION 

130 READ D* = A* ( I , J ) =D* 'PUT DATA INTO ARRAY 

140 NEXTJ, I 

150 'PRINT OUT ARRAY TO TEST IT 

160 FOR I = 1 TO 4s FOR J = 1 TOI,J);" " J : NEXTJ: PRINT; NEXTI 

200 DAT ASM I TH , TOM , NORWOOD , HOLDEN , 24 

210 DATAJONES, BILL, MILE-END, FORD, 43 

220 DAT ABAKER , AL I CE , ADEL A I DE , DATSUN , 1 7 

230 D AT A V AGG , DELPH I N I A , SPR I NGF I ELD , MERCEDES , 32 

This is merely a short example to illustrate the idea - if this is the total quantity of data 
an array is probably unnecessary. This array is to store data about people and, while it has 
only five elements in the second dimension, there can be as many as necessary to hold all the 
separate pieces of data required. The array can be filled by input or data lines. Data lines 
would seem more appropriate, as probably every time the program is run the array will hold the 
same data. Of course, this can still be changed by individual input statements which search 
for erroneous data, then correct it. The following program illustrates a simple case - the 
input method used is shown only for simplicity - in fact, we hope you will use one of the input 
checking routines to appear in the next instalment on input checking. 

ISO PRINT 

Z-90 PRINT 

400 INPUT "NAME, SUBURB" ; N* , S* ' GET NAMES TO BE SEARCHED FOR 

^ 10 FOR I = 1 TO 4 'STEP THRU ALL X DIMENSIONS 

3 20 IF A* < I , 1 ) =N* AND A* ( I , 3 > =S*THENF= T : T =4 : NEXT I : G0T0460 * IF MATCH FOUND 

430 NEXTI 

440 PR I NT "NOT FOUND" s G0T0400 'IF NO MATCH 

460 FOR I = 1 TO 5:PRINTA*(F, I) ; " " j : NEXTI : PRINT 'SHOW WHAT FOUND 

470 INPUT "ANY CHANGES" ; C* 'ALLOW FOR CHANGES 

4S0 I FLEF T * < C* , 1 ) < > " Y " THENG0T0600 'IF NO CHANGES , CONT I NUE 

490 INPUT "NEW DATA (LAST NAME, FIRST NAMF, CAR, AGE) "; A* (F, 1 ) , A* (F, 2) , A* <F.3) , A* 

<F,4) ,A*(F,5) 'NEW DATA 

500 PRIN"?: GOTO 160 'SHOWS NEW DATA IN ARRAY 

The above example is merely to stimulate thought - as indeed are all the examples, routines, 
and programs in this series. As we said right at the start, the best learning is gained by 
experimentation. So please try out our examples, then extend them to be useful to yourself. 

While this particular example is only two-dimensional, it could just as easily be three-dimensional. 
Perhaps if there is another set of information which depends on the type of car - although this 
would be unnecessarily complicated we feel. It would also create another dimension "behind" 
all the sideways elements too. In this case, the way we would handle it is to use a longer 
string to contain the related information in the same element. To make searching easier, we 
suggest packing all items of the same nature out to the same length with blanks. 

600 FOR I = 1 T'ADD ONE SPACE AT A TIME 

610 F0RL=LEN(A*<I,J))+1 TO 12 'PACK EACH ELEMENT TO 12 

620 A*(I, J)=A*<I, j)+" "sNEXTL 'ADD ONE SPACE AT A TIME 

630 NEXTJ, I 

635 ' PRINTOUT THE ARRAY IN ITS NEW FORMAT 

640 PRINT sF0RI=lT04s FORJ=T IN REVERSE ORDER FOR EFFECT! 

Such a technique as this will make each address to have a length of 12 characters even if the 
name is only short. Then, for instance, the pcst-code can be added to make a length of 16 by 
a simple string addition technique such as 

A$(I,3)=A$(I,3)+PC$. 

Then having filled the array with a set of addresses containing post-codes as the last four 
characters of the address element, the post-codes can simply be retrieved by RIGHT$(A$([,3),4) 
and sorted, compared with input, etc. Because the screen layout will be used up in its full 
width by the above example, we have not given an exact example of what we suggest, but we have 
given a similar example of using right string and we suggest that you look at this and work 
out for yourself what we have done. 

730 F0RI=4T01STEP-1 'DO IT IN REVERSE ORDER FOR EFFECT! 

740 PRINTTAB(30)RIGHT*(A*<I,3),6) 'SELECT LAST 6 CHARACTERS IN ARRAY ELEMENT 3 

IN Y DIMENSION FOR EACH X DIMENSION 
750 NEXT 
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***** ESF FORUM - by Les Kinch ***** 

This month we have handed over the ESF FORUM to reader Les Kinch who has some handy advice to 
give concerning the use of the stringy floppy and also provides a list of parameters for saving 
common machine language programs onto wafer. There are two points to make arising from the 
contents of Les's article. At the time the article was written, Exatron was forced to change 
to a different tape formulation which was softer than earlier tapes and tended to leave considerable 
deposits on the head and capstan. Since then, Exatron has changed to a harder formulation and 
also improved the design of the wafer so that there is much less risk of tape damage. Nevertheless, 
Les's advice to clean the head and capstan frequently is still very important - remember, the 
tape is running more than five times faster than in a standard cassette recorder. 

When cleaning the head etc., use sparing quantities of isopropyl alcohol or a proprietary head 
cleaner which will NOT attack plastic. Acetone is NOT suitable. We have recently had several 
ESF's with 'Write Protected' errors returned for service. We found in each case that the LED 
which detects the presence of the write-enable sticker on the wafer had been etched to the point 
where it could no longer recognise the presence of the sticker. This was presumably caused 
by the use of excessive amounts of an unsuitable head cleaning fluid. Now, over to Les. 

First off, if any of you are hesitant in making the plunge, forget it! The 'Stringy' is everything 
its designers say it is. A very fast input/output device. But, be prepared to give it more 
attention than you would to your old, slow, audio recorder. Remember it utilizes a similar 
principle to that used on the 'Floppy-disk' recorder and, in particular, is prone to contamination 
to the read/record head from the media itself. So, be prepared to clean your record head two 
to four times a week. This is a users' fact - (I use a proprietary brand of liquid head cleaner 
applied with cotton buds). 



Exatron admit that some of the recording media will and do leave a deposit of oxide on your 
heads. They are right, it does! I've a fair knowledge of recording tape quality and consider 
that the 'Stringy' tape should be the best. In practice, it is not. This will keep the price 
down a bit but it does mean you will have to clean frequently. 

You may think I've belaboured that point to excess, but I haven't really. For instance, you 
have a good program as No.l on your 'Stringy'. You want to erase the rest of the tape ready 
for a new program. Type @NEW2. This should NEW the remainder of the StrTngy Floppy. If you 
have a dirty head, this procedure may well 'NEW' the whole tape. Don't get me wrong - I'm not 
saying the Stringy Floppy is a bad buy, it's great, but be more careful. 

Another good habit is to re-initialize the bootstrap each time you wish to use it. For instance, 
after you have put 15 plus K into your memory and you want to "@SAVE" it, go to the initialization 
routine first (System */12345) and then @SAVE your program. 

I have included a short list of some of the programs I have currently changed over to my 'Stringy 
Floppies'. If you have problems in converting your favourite program to the media, please write 
to me - I'll do my best to help (not promising results of course, but I can try!) 



PROGRAM 



START 



LENGTH 



AUTO-START 



(LOW) 



MONBUG 

RSM 2 

PENCIL 

TR COPY 

SARGON II 

FASTGAMMON 

BARRICADE 

SAUCERS 

INVADE 

MONBUG 

A.T.C. 

FORMUL 

LIFE 2 

MICRO MUSIC 

MICRO MOVIE 

T-BUG 

ZBUG 

T-BUG 

BASIC 

BASIC 

CKRS 80 

RENUM 

EDTASM 

EDTASM PLUS 

PYRAMID 

BMON 16 

LOADER 



(HIGH) 

I 

III 



28672 
27648 
21897 
17152 
18944 
22272 
17232 
20480 
17174 
17280 
17152 
17408 
17664 
17152 
17152 
17280 
17280 
29936 
28160 
16896 
20480 
31808 
18056 
17280 
17152 
29248 
31796 



4096 
4609 
5900 
1521 
12196 
4736 
2736 
8192 
3244 
4096 
2617 
1098 
582 
1649 
2560 
1536 
6063 
1295 
4607 
5572 
10016 
959 
5767 
12002 
15510 
3262 
0689 



28672 

27648 

23649 

17152 

20480 

17232 

17232 

20480 

17717 

17280 

17152 

17408 

17664 

17152 

17152 

17280 

17280 

29952 

28160 

16896 

20480 

31820 

18056 

17280 

17152 

31641 MEM. SIZE 29200 

32051 
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PROGRAM 

PACKER 

FLIGHT SIMUL I 
FLIGHT SIMUL II 
ADVENT (COUNT) 
ADVENT 





MICRO- 


-80 




START 






LENGTH 


28060 






4608 


17136 






11025 


17136 






11025 


17136 






11025 


17136 






11025 
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AUTO-START 



28060 MEM. SIZE 28059 

17136 

17136 

17136 

17136 
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***** -go USERS' GROUPS ***** 

The following is a list of '80 Users' Groups. If you have a group that is not included here, 
please let us know about it so that we can publish details. Owners of System '80s are welcome 
at all the groups. 



** AUSTRALIA ** 
BRISBANE: 

MELBOURNE: 



FRANKSTON: 
(VIC.) 



GEELONG: 



DARWIN: 

ADELAIDE: 

CANBERRA: 



Contact: Mr. Lance Lawes, 
Tel: Home (07)396 2998 

Bus: (07) 268 1191 Ext. 15 
MEETINGS 1st Sunday of the month at 2 p.m. at 21 Rodney St. Lindum. 



NORTHERN AND WESTERN SUBURBS 



Contact: Mr. David Coupe (03)370 9590 

MEETINGS: C.P.M. Data Systems, 284 Union Road, Moonee Ponds. 
Alternate Thursdays at 7 p.m. 



EASTERN SUBURBS 



Contact: Mr. John Fletcher, 89 0677 bet. 9-4. 

MEETINGS: 4th Wednesday of the month at 7 p.m. at Kingswood College, 
355 Station St. Box Hill. 



PENINSULAR GROUP 



Contact: M.G. Thompson (03)772 2674 

MEETINGS: 2nd Tuesday of the month (except Jan.) 



GEELONG COMPUTER CLUB 



Contact: The Geelong Computer Club, P.O. Box 6, Geelong, Vic. 3220. 
MEETINGS: 2nd Tuesday of the month at TYBAR Engineering, Hampton 
St. Newton. 

Contact: Tony Domigan, P.O. Box 39086, Winnellie, N.T. 5789. 

Contact: Rod Stevenson, 51 5241 bet. 9-4. 36 Sturt Street, Adelaide. 

Contact: Bill Cushing, 10 Urambi Village, Kambah ACT. 2902. 

(PH. 31 6399). 
MEETINGS: 3rd Thursday of each month at 7.30 p.m. in: 

Urambi Village Community Centre, Crozier Circuit, Kambah. 



UNITED KINGDOM 



NEWCASTLE: 



National Users Group in U.K. 

Brian Pain, 40 High Street, Stoney Stratford, Milton, Keynes. 

International TRS-80 Level I User Group, 

Secretary: Mr. N. Rushton, 123 Roughwood Dr., Northwood, Kirkby, 
Merseyside, L33 9UG. 

Contact: John Stephen Bone 0632 770036 

NPCS (Newcastle Personal Computer Society) 



** NEW ZEALAND ** 
AUCKLAND: 



Contact: Ron Feasy 799 366 (Bus:) 469 455 (Priv.) 
MEETINGS: 1st Tuesday of each month, 7.30 p.m. at: 

NZ Solenoid Co. Ltd. , 

28 Kalmia Street, 

Ellerslie, Auckland. 
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***** INPUT/OUTPUT ***** 
From: Ron Jorgensen, Vic. 

Enclosed is a cheque for renewal of my subscription to MICRO-80. When the time came, the decision 
to renew my subscription was not as easy to make as I would have imagined last year after reading 
my first 4 or 5 issues (beginning with Issue 6). Lately, on reading my eagerly awaited copy, 
I have been a little disappointed that the excellent standard of those early issues has not 
been entirely upheld. 

I realise that yours is primarily a software-oriented magazine (good) and indeed, the April 
and May 1981 issues, to take examples, included some interesting programs, but lacked elsewhere. 
The April issue included the usual Market Place, Readers' Requests, Users' Group list, the Editorial 
and no less than six reviews. After the just as noticeable lack of them this month, I hope 
that readers' reviews will return in moderation in Issue 19. I agree that readers' reviews 
are an important new part of the magazine, but some discretion must be used in their selection. 
Reviews of games could perhaps be shorter and more concise, whereas utilities that often warrant 
a more detailed treatment could be given it. I liked the "toolkit" and "editor" reviews. 

The Editorial in April consisted of only 1 topic, whereas editorials of the past have included 
many subjects and titbits of information on varied subjects. We all like to hear what is happening 
in the microcomputer industry, especially those of your readers who do not go to computer club 
meetings. There must be a million things that you at MICRO-80 talk about - what is happening 
at Fort Worth, Rydalmere or Dick Smith; how is the PMC-80 and Video Genie distributed overseas; 
ROM differences and many other things - so why not share these with us, your readers? Certainly 
the old rumour-mill provoked much thought and conversation. If not in the Editorial, why not 
start a gossip/information called "Online" or something, as in the business computing section 
of the Melbourne "Age". 

Sad was the loss of Peter Hartley, but more so the supposed demise of "Better Bytes" and his 
straightforward, frothy style. The varied information in "Better Bytes" was always welcome, 
ranging from programming to cassette care. "Better Basic" is a great new addition, and appears 
set to fill the gap left by "G.T. Basic". Everyone knows now, if not before, how to POKE out 
the BREAK key but there must be many more little tricks involved with poking around in that 
mystery-shrouded area labelled "reserved". So please, fellas, tell us about 'em!! 

I have always thought that letters were important to any magazine, especially to one that has 
said it is very interactive. Where then, is Input/Output? It is always so very interesting 
to hear about other users' opinions and problems. 

Finally, I would like to say that I really liked the complete and objective review of Model 
3 - and the pictures were great. Incidentally, how many of your readers have Model 3's? Is 
a survey possible? 

I hope that my thoughts here have been of the form of constructive criticism, and that they 
help to make MICRO-80 bigger and better than before, while still having that "club" type feel 
to it. Incidentally, not publishing the assembled code for the lower-case drivers is not the 
way to keep that atmosphere. I still love your magazine, and hope I always will. Thanks. 

(Thank you for your helpful comments, Ron, many of which have been echoed by a number of other 
readers. There are several reasons for the changes upon which you comment. Many were uninten- 
tional. The loss of Peter Hartley caused a considerable hole in our "resident" editorial staff 
which we are still patching up and, coupled with a desire to experiment in response to a number 
of readers requests, we included a number of reviews of software. In retrospect, we should 
have spread them out over several issues and perhaps edited some a little more thoroughly. 

Input/Output and some of the editorial comments disappeared temporarily because of the pressure 
of work on the editor associated with our move to new premises and the desire to catch up on 
publication dates which is a constant worry to us. Incidentally, we have been answering many 
more readers directly in recent times, although we still have a considerable backlog of mail. 
By now, you will have seen the return of both these features. 

Photographs (sigh) We held up the printing of the March issue by a good week in a vain attempt 
to obtain some photographs of the Bathurst race to adorn our front cover Dismal failure - 
so, conscious of deadlines, we went to press with the old design and have "done so ever since 
until this issue. We will continue the use of "screen dumps" for illustration and the occasional 
photographs of equipment until we are at last publishing the magazine in the month stated on 
its cover. Then we will have more time to chase photographs, etc. 

Ron, the reason we did not publish the assembled code for the lower-case drivers is that it 
is not possible to produce this code in any way other than with an editor/assembler The code 
resides in screen RAM and would be interfered with by the monitor itself. We were certainly 
not trying to generate extra cash for MICRO-80 by selling the object code." In fact, the offer 
of the cassette for $5.00 was an afterthought when we realised that not all readers would be 
able to use the program because of a lack of an editor/assembler. 
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Thank you for your comments, Ron (and those readers who have made similar comments). It is 
obvious that the formula we developed in our first 14 or so issues is the most acceptable to 
our readers and we will return substantially to that formula. - Ed.) 



FROM: 



B.N. Hall - 49 Bastick Street, Rosney, Tasmania, 7018. 



I was very interested to read the comments by Mr. A. Small bridge (Dec. 80) regarding cassette 
loading of the System 80. Having had sporadic problems with mine and believing that level was 
the problem, I launched into the modifications involving a LED and installation of an accessible 
level control pot. 

Dick Smith's instructions tell the user to adjust the positive peaks of the recovered signal 
to 3 volts and therein lies the rub. There is no way that tapes recorded on my machine (and 
apparently other System 80's) will produce anything like the symmetrical, almost sine wave, 
signal that Dick's demonstration tape and one from MICRO-80 will give. 

I experimented with the erase head (DC) using no input and reversed input, demagnetised the 
heads and low pass filtered the input signal so that it approximated a 'good' output signal, 
all to no avail. The only waveform obtainable at the output was violently assymetrical with 
a large excursion in the negative direction and a couple of positive overshoots. 

In desperation I built up some electronics which used the negative excursions as the trigger 
to derive an output signal from the recorder similar to that applied in the record mode. Lo 
and behold, no more loading problems. 

The circuitry is relatively simple and uses a quad comparator (LM339, two spare) and a dual 
timer (NE556) used as two one-shots. A block diagram is attached. 

The first comparator CI produces an inverted pulse train (B) timed by the negative excursions 
of the signal from the recorder (A). The first one-shot Ml is triggered by the trailing edge 
of (B) and produces a positive going pulse train (C) whose pulse duration T, is about 120 micro- 
seconds. The second one-shot is triggered by the trailing edge of (C) and produces a similar 
waveform (D) delayed by T. (D) is inverted by comparator C2 whose output (E) is resistively 
combined with (C) to produce (F). 

The device is powered from the 80 's internal 9v rail and produces a signal of about 5v p-p with 
which the 80 seems quite happy. 

I will be pleased to supply further details to any interested reader. 




(A) 



(O 






! I 
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i 
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0=) 



Jl 



U 



(Thank you very much for this contribution, Mr. Hall. If you are inundated with requests for 
detailed circuit diagrams and fitting instructions, perhaps you might like to prepare a detailed 
article for us to publish - Ed.) 
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***** MARKET PLACE ***** 

Market Place is available to any reader who has hardware to dispose of. An entry costs nothing 
- you pay MICRO-80 $5.00 or 5% commission, whichever is the greater - up to a maximum of $30, 
after the goods are sold. The commission is calculated on your advertised price. 



KTM-2 KEYBOARD UNIT in good order 



AXION SERIAL THERMAL PRINTER with 

8 rolls of paper and TRS-232 interface 



$235.00 



********** 



$400.00 



********** 



Mr. A.R. Hall, 
c/o Post Office, 
Southbrook, Qld. 4352. 



Mr. T. Domigan, 
P.O. Box 390986 
Winnellie, N.T. 5789. 



SYSTEM-80 LEVEL II 16K MEMORY, GAMES 
CASSETTES, BOOKS AND MANUALS, brand new 



SYSTEM-80 L2/16K with full documentation, 
approx. 40 blank cassettes (data), books, 
magazines, and programs (mostly games) 
including EDTASM PLUS and Adventure No. 9. 



$680. CO 
********** 

$720.00 o.n.o. 
********** 



Mr. M. Gosbee 
Ph. (02) 88-4468 



Mr. R. Glucz, 
1/1707 Dandenong Rd. 
Oakleigh, Vic. 3166 
Ph. (03) 543 3302 A.H. 



TRS-80 MODEL 1 Level II 4K excellent 
condition, Catalogue price $879. Sell 
with manuals and programs 



$750.00 
********** 



James Grigg. 

Ph. (052) 78 5056 



Radio Shack QUICK PRINTER: 150 LPM on 4.75" 
wide aluminised paper. Software selectable 
80, 40 or 20 characters per line. Upper- 
case with full descenders. Automatic 
underlining. Seldom used and in excellent 
working order. Catalogue price $699. Will 
sell for: 



$400.00 



K. Cook, 
P.O. Box 931, 
GOVE, N.T. 5797. 



*■*"*"*"*■* •*"*■•*■ * 



SYSTEM-80 L2/16K with over $100 in programs 
including BMON, RPN Calc. Sargon 3.5 Chess, 
Space Invaders, 70 Maths/Finance Programs. 
Excellent condition 

SERIAL PRINTER INTERFACE 



SYSTEM-80 Level 2 16K with input level 
indicator, right arrow and clear keys, 
I/P changeover switch plus Emerson cassette 
recorder for external input, plus 12" B&W 
T.V. monitor with video I/P conversion, 
plus 13 months of MICRO-80 issues and 
cassettes, plus 10 Scotch computer 
cassettes 



Tandy QUICK PRINTER 11. 120 LPM Upper/Lower 
case on 2-3/8" aluminised paper. As new and 
4 rolls of paper included 

INTERFACE to suit System-80 

TEXAS INSTRUMENTS T:59 Calculator and 
PC100C Thermal printer. The calculator 
has a card reader, 960 program steps and up 
to 100 memories. I have 2 extra plug in 
modules (each with about 22 programs) and 
some other software for it 



$680.00 
$ 40.00 

•k'k~k'k~k'k-k-k"k-k 



$700.00 the lot 
********** 

$200.00 
$ 40.00 



G. Hobbes, 
42 Nareen Pde. 
NARABEEN, N.S.W. 2101 
Ph. (02) 913 2264. 



Mr. B. Cameron, 
15 George Street. 
PENNANT HILLS, 
N.S.W. 2120. 



Dennis Bareis 
286 Lennox Street, 
MARYBOROUGH. QLD. 4650 
Ph. (071) 22 1699 
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***** USING TRS-80 SOUND PROGRAMS ON A SYSTEM 80 - by G.F. Pukallis ***** 

As an owner of a System 80 machine and in possession of some system programs written for the 
TRS-80, I had to do something about output ing the very fancy sound routines associated with 
these programs. 

One way of course is to alter the software and, indeed, this is what I commenced doing until 
I decided that I would take the easy way out and attack the exercise from the hardware angle. 

Since the System 80 requires bit 2 of port "FF" to be set, (i.e. B2=l), each time output data 
is fed to port FF to allow the data path through relay 2 contacts, I decided that the simplest 
approach would be to "drive" relay 2 on permanently after loading the program. 

To effect this operation a slide switch was mounted in the vicinity of the tape counter and 
connected into circuit as shown in FIG. 1 . 

The wiring of the slide switch and diode is fairly simple, but some care has to be taken if 
the pencil soldering iron is too large. 

The anode of the A14P diode is soldered to the anode of D9 and the hookup cable taken from the 
cathode to a side of a set of N/0 contacts of "SWS". 

The other side of this contact can be taken to ground on the emitter of Q6. 

The physical layout of the interface PC board is available in the System 80 Technical Manual 
Issue No. 1. November 1980. 

At the time of writing these notes, the second N/C contact of SWS had not yet been wired in 
as drawn, but I think it would be a wise move to do so as there may be some danger in both relays 
being energized at any one time. 




As easily seen from FIG.l the second contact of SWS simply opens the +9V rail to relay 1 when 
actuated . 

The above alteration was overall a very simple installation and will allow full sound from the 
System 80 when running programs written for the TRS-80 without any software modification. 

- 0000000000 - 
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***** READERS' REQUESTS ***** 

This column is a regular feature of MICRO-80. In it, we list all those articles, programs, 
etc. requested by our readers. We invite contributions from readers to satisfy these requests 
and will, of course, pay a publication fee for all articles, programs etc. printed. As a guide, 
we will pay a minimum publication fee of $10 for any article or review published. In the case 
of software reviews, we will aim to pay in accordance with the value of the program, up to a 
maximum of $25. So, if you write a good review which we publish and the usual selling price 
of the program in Australia is $19.95, then we would pay you $20. In that way, the successful 
reviewer will get the program he reviews, free. (Make sure you include the selling price in 
your review). Unfortunately, we cannot afford that policy on hardware (!) so we will pay in 
accordance with the merits of the review - generally of the order of $25. Submission of a review 
for publication automatically means that you are prepared to accept the figure we decide to 
pay you and no correspondence will be entered into. Payment will be made within 30 days of 
publication. 

** ARTICLES ** 

File handling on the '80 

Description of the functions performed by the Expansion Interface 

Reviews of '80 compatible printers 

Reviews of commercially available software (including that produced by us!) 

Reviews of commercially available hardware 

* A master index to the appropriate sections in the Tandy Manuals in Level I, Level II, DOS etc. 
Comparative reviews of disk drives 

How to convert a Level I program to Level II 
A simple guide to using Level I Arrays 

* An explanation of how to make full use of USR, PEEK and POKE statements 

Discussion of the various electric fields produced by the keyboard, tape recorder, monitor 
disk'drives etc., how to measure them, how important they are and how to combat them 

** SOFTWARE ** 

* A m.l. program to enable the break key to work like RESET when using an expansion interface 
Stock market program 

* Horse racing system 

"Files" program modified for 48K system 

* Morse code decoder 
Sub-routine Forum 

A new STAR-TREK game 

Conversational programs (like Eliza) 

3D programs (such as a maze seen from the inside) 

Program to scroll a Level II listing, one line at a time 

Modification to SCRIPSIT which will enable it to output to the SYSTEM 80 printer port 

Double Precision Trig, Log and Exponential machine language routines 

Programs of pharmaceutical interest such as Pharmacokinetics, Patient Medication Records, 

Drug information services etc. 

** HARDWARE ** 

Interfacing the '80 to external hardware 
Review on the performance of line filters 
Real Time clock 

* Radio Teletype/Morse interfacing 

RFI (Radio Frequency Interference) suppression 
Interface for a Teletype printer 

NOTE: An * denotes that we already have some suitable material on hand for this topic. 

- 0000000000 - 

***** SOFTWARE SECTION ***** 

***** BREAKOUT LI/4K (C) W. SKUZA ***** 

Breakout is a mad cross between tennis, squash and a demolition crew. The idea is to hit a 
ball towards a series of walls, knocking as many holes in them as possible. Points earned are 
shown under each wall. You control the bat at the left of the screen which you can move up 
and down. If you fail to hit a ball then the next ball is played. 

You have 5 balls before the end of the game. If required, you may save your high score to tape 
using the inbuilt routine so that next time the game is played the previous high score can be 
loaded back in. The high score is displayed on the screen. If you manage to clear the board 
a new set of walls is drawn and play continues until the 5 balls have been used. 
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10 L=0sM=0 

20 I. "ENTER A NUMBER <10 - 1000> ":D 

30 IF(D<10)+(D>1000)T.20 

40 F.E=1T0D:H=R. (O)sN.E 

50 I =58 : J=59 ; N=-23 . 6 : 0=0 s P=0 : Q=0 s R=0 s S=0 

60 I. "DO YOU WANT INSTRUCTIONS (1=YES, 2=N0) " ; Us IFU=1G. 1 100 

70 IFUO2T.60 

75 IFU=2G.1210 

80 N=OsC. :F.Z=4T0127:S. (Z,5):S. (Z,34):N.Z 

90 F.Z=5T034:S. (127, Z) sN.Z 

lOO P.T. (21)," A ^> BREAKOUT <D3 

110 F.Z=6T033sF.A=60T0102S.6sS. (A, Z) :N. AsN. Z 

120 F.Z=1T08:P.A.3*Z+794,Z:N.Z 

130 S. (7, 43)-. S. (10,43) 

1 50 S=S+ 1 : I FS=6T . 850 

160 P. A. 919, "BALL" s S; A. 833, "HIGH SCORE" ; O: A. 881 , "SCORE" ; P 

170 F.Y=LTOM:R. (3, Y) : N. Ys L=17: M=22 

180 F.Y=LTOM:S. (3,Y):N.Y 

190 F.Z=1T0R. (2000) : N. Z: 1=58: J=59: Y=R. (27) +6sK=3:N=0 

200 P.A.900,sK=-K:R=0 

210 R. (I,Y) :R. (J,Y) : IFY<=7G0S. 750 

220 IFY>=33G0S.780 

230 Y=Y+N: I = I+Ks J=J-t-K: IFJ=125K=-K:R=1 

240 IFI=4T.600 

250 S. (I,Y)sS, (J,Y)sIFP. ( 7 , 43 ) =OGOS . 500 

260 IFP. (10,43) =OGOS. 530 

270 IFP. (J+l,Y)=OT.210 

300 F. A=60T0102S. 6: IFP. ( J+l , Y) =P. (A, Y) T. 400 

310 N.A 

320 6,210 

360 I.#A*,B$,0 

370 P. "THIS HIGH SCORE 0F";0s"WAS SET BY "sA$s" ON ";B$ 

380 F.Z=lT01500:N.Z-.Q=lsRET. 

400 R. (J+l,Y)sP=P+(J-53)/6sIFI. (P/1008) =P/1008S=S-1 s G. 80 

410 K=-6s P. A. 881 , "SCORE" ; P; A. 900, s IFR=1K=6 

420 R=0sG.210 

500 IFL<3RET. 

510 P. A. 900, :S. (7,43) :R. (3,M) :R. (3,M-1) sL=L-2:M=M-2 

520 S. (3,L+1):S. (3,L)sRET. 

530 IFM>37RET. 

540 P.A.900, sS. (10,43) :R. (3,L+1):R. (3,L) sL=L+2sM=M+2 

550 S. (3,M-1):S. (3,M) sRET. 

600 K=-6 

610 IFP. (I-1,Y)=0T.150 

620 IFL=I. (Y+.5)N=-2?R. (0) 

630 IFL+1=I. (Y+.5)N=-1.5»R. (O) 

640 IFL+2=I. (Y+.5)N=R. (0>-.65 

650 IFL+3=I. (Y+.5)N=R. (0)-.35 

660 IFL+4=I. (Y+.5)N=1.5^R. (O) 

670 IFL+5=I. (Y+.5)N=2«R. t 0) 

680 IFA. (NX IT. 200 

690 IFN<0N=-lsG.200 

700 I FN >0N= 1 : G . 200 

750 IFN<0T.770 

760 RET. 

770 Y=6sN=-NsRET. 

780 IFN>0T.800 

790 RET. 

800 Y=34:N=-NsRET. 

850 P.sP.:P.sP.sP.:IFQ=0T.950 

860 IFP>0T.900 

870 P.T. (25) , "GOOD TRY ! ! ! 

880 P.T. (5), "BUT YOU HAVEN'T BEATEN THE PREVIOUS RECORD 

890 P.T. (5), "OF"; O;". BETTER LUCK NEXT TIME" : G. lOOO 

900 P.T. (25), "WELL DONE !!! 

910 P.T. (8),"Y0U HAVE JUST SET A NEW HIGH SCORE OF"sP 

920 P.T. (8),", BEATING THE PREVIOUS HIGH SCORE BY";P-0 

950 Q=Q+lsO=P 

1000 P=0sL=17sM=22sP.T. ( 13) , : IN. "TRY AGAIN (1=YES, 2=N0)";U 

1010 S=0sIFU=lT.80 

1020 IFU=2T.1040 

1030 G. 1000 

1040 P.sI."DO YOU WISH TO SAVE HIGH SCORE (1=YES, 2=N0)";U 

1050 IFU=2T. 1250 

1060 IFU01T.1040 

t070 P. "PREPARE TAPE AND SET RECORDER TO RECORD MODE 
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1080 I. "ENTER NAME AND DATE (IE JOE BLOW, 18/9/ 1980) "^$,6$ 

1090 P.#A$;", ";B$; % ";0:G» 1250 

1 1 00 C . ; P , T . ( 2 1 ) , " -" ~ > BREAKOUT < 1 1 

1110 P.: P. "THIS PROGRAM ATTEMPTS TO SIMULATE THE POPULAR ARCADE GAME. 

1120 P,"THE IDEA IS TO SCORE AS MANY POINTS AS POSSIBLE BY HITTING A 

1130 P. "BALL TOWARDS A SERIES OF WALLS AND KNOCKING THEM OUT. POINTS 

1140 P. "EARNED ARE SHOWN UNDERNETH EACH WALL. YOU CONTROL A BAT, WHICH 

1150 P. "MOVES UP < PRESS 3>, OR DOWN < PRESS SPACE BAR>. IF YOU FAIL 

1160 P. "TO HIT THE BALL, THE NEXT BALL IS PLAYED. YOU HAVE 5 BALLS. 

1170 P. "YOU MAY SAVE YOUR HIGH SCORE TO TAPE BEFORE TURNING THE 'SO 

1180 P. "OFF IF YOU WISH, THIS CAN THEN BE LOADED IN AGAIN WHEN YOU 

1190 P. "NEXT PLAY. HIGH SCORE AND PROGRESSIVE SCORE ARE DISPLAYED." 

1195 P. "IF YOU MANAGE TO CLEAR THE BOARD A NEW SET OF WALLS IS DRAWN 

1197 P. "AND PLAY CONTINUES UNTIL 5 BALLS HAVE BEEN COMPLETED." 

1200 P. T. (15) , s I. "PRESS ENTER"; A* 

1210 I. "DO YOU WISH TO LOAD DATA (1=YES, 2=N0) " s Us IFU=2T. SO 

1220 IFUOIT. 1210 

1230 P. "PREPARE DATA TAPE" : F. Z=1T0 1500: N„ Z s GOS. 360 

1240 6.80 

1250 E. 



***** INTERCEPT LI/4K (C) M. BINET ***** 

This is a game of skill and cunning. The object of the game is to intercept as many targets 
as possible. To do this, you control a moving dotted line with the left and right arrow keys. 
Pressing the right arrow causes the line to change direction 90 degrees clockwise, while pressing 
the left arrow causes the line to change direction 90 degrees anti -clockwise. Targets in the 
form of white blocks will appear on the screen in a random fashion. You must intercept these 
targets before they disappear. If you succeed, you will receive a score between 30 and 100. 
However, if you run into yourself or the wall you will lose a line. You have 5 lines to start 
with. 



10 REM PROGRAM BY MARLON BINET 

20 REM WRITTEN SOME TIME IN AUGUST 1980 

30 C.sY=isN=Os P. "WELCOME TO INTERCEPT" : IN. "DO YOU WANT THE RULES " ? Q 

40 C. sH=0sA=2sB=0sP»A.896; : IFQ=1G0S. 1000 

50 F.I=0T0127:S. ( I , 1 ) s S. ( I , 2) :S. (1,39) :S. (1,40) sN. IsF. I=3T038 

60 S. (O, I) sS. (1, I) :S. (126, I) sS. (127, I) sN. I : S=0:N=5:C=0sG0S. 2000 

70 F. I=1T020+R. (9) :X-=R. <115>+6: Y=R. <30>+6sS. <X,Y) : F. J=lT099s N. Js R. (X„Y) 

80 N.IsS. <X,Y>: GOS. 3000 

90 X=X+AsY=Y+BsIF(A. (X-D-4X5) * (A. (Y-EX2) * (COO) GOS. 8000 

95 IFF. (X,Y) 6.4000 

100 S. (X„Y)sIFP. (2,47)=0G0S.5000 

110 IF(C=0)*(R. (10)=1)T.60S.6000 

120 I FC= 1 T . C=0 : 60S . 7000 

130 IFC>1T.C=C-1 

140 G.90 

1000 C. s P. "WELCOME TO INTERCEPT. A GAME OF SKILL AND CUNNING . 

1010 P. "THE OBJECT OF THE GAME IS TO INTERCEPT AS MANY TARGETS" 

1020 P. "AS POSSIBLE. TO DO THIS YOU CONTROL A MOVING DOTTED LINE" 

1030 P. "WITH THE LEFT AND RIGHT ARROW KEYS. PRESSING THE RIGHT ARROW" 

1040 P. "CAUSES THE LINE TO CHANGE COURSE 90 DEGREES CLOCKWISE." 

1050 P. "SIMILARLY PRESSING THE LEFT ARROW CAUSES THE LINE TO " 

1060 P. "CHANGE COURSE 90 DEGREES ANT I -CLOCKWISE. " 

1070 P. "FROM TIME TO TIME TARGETS (IN THE FORM OF WHITE BARS)" 

1080 P. "WILL APPEAR ON THE SCREEN. YOU MUST INTERCEPT THESE TARGETS" 

1090 P. "BEFORE THEY DISSAPPEAR. IF YOU INTERCEPT A TARGET, A" 

1100 P. "VALUE WILL BE ADDED TO YOUR SCORE BETWEEN -30 AND 100." 

1110 P. "IF HOWEVER THE LINE HITS ITSELF OR THE SURROUNDING WALL" 

1120 P. "IT WILL BE DESTROYED. YOU HAVE 5 LINES TO GAIN AS MANY POINTS" 

1130 P. "AS POSSIBLE. GOODLUCK! ! !" 

1140 IN."TYPE ENTER TO PLAY" ; A*: C. s P. A. 896; : RET. 

2000 P. A. 900; "YOUR SCORE: "; S; A. 919; "LINES LEFTs " ; N; AT943; "HIGH SCORE" ;H 

2010 RET. 

3000 P. A. 961; sF. I=0T05sS. (1,47) sN. IsRET. 

4000 N=N- 1 s GOS . 2000 : I FN=OG . 1 0000 

4010 F.I =65T0769S . 64 

4020 P.A.I;" »- 

4030 P." "; :N. I s GOS. 3000s 6. 70 

5000 IFP. (1,47) I=BsB=A:A=-I: GOS. 3000: RET. 

50 10 I =B s B=~ A : A= I : GOS . 3000 ; RET . 

6000 F=R. (114)+lsG=R. (36) +2s F. I=FT0F+8s IFP. ( I , G) C=0s RET. 

6010 N.I:F.I=FT0F+8:S. ( I , G) s N. I s C=30+R. (10) ; D=F: E=Gs RET. 
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DONT BE HELD BACK BY AN 
ANTIQUATED DISK OPERATING SYSTEM 

MOVEUPTO 

NEWDOS 80 $149 incl. p&p 

NEWDOS 80 is a completely new DOS for the TRS-80 
SYSTEM 80. It is well-documented, bug free and 
increases the power of your system many times over. It 
is upward compatible with TRSDOS AND NEWDOS (ie 
TRSDOS and NEWDOS+ programs will run on 
NEWDOS 80 but the reverse is not necessarily so). 

These are just a few of the many new features offered 
by NEWDOS 80. 

* New BASIC commands that support variable record 
lengths up to 4095 bytes long. 

* Mix or match disk drives. Supports any track count 
from 18 to 96. Use 35, 40, 77 or 80 track 5 1 / 4 inch 
mini disk drives, 8 inch disk drives OR ANY COM- 
BINATION. 

* An optional security boot-up for BASIC or machine 
code application programs. User never sees "DOS- 
READY" or "READY" and is unable to "BREAK", 
clear screen or issue any direct BASIC statements, 
including "LIST". 

* New editing commands that allow program lines to 
be deleted from one location and moved to another 
or to allow the duplication of a program line with 
the deletion of the original. 

* Enhanced and improved RENUMBER that allows 
relocation of subroutines. 

* Create powerful chain command files which will 
control the operation of your system. 

* Device handling for routing to display and printer 
simultaneously. 

* MINIDOS - striking the D, F and G keys simul- 
taneously calls up a MINIDOS which allows you to 
perform many of the DOS commands without dis- 
turbing the resident program. 

* Includes Superzap 3.0 which enables you to display/ 
print/modify any byte in memory or on disk. 

* Also includes the following utilities: 

— Disk Editor/Assembler 

— Disassembler (Z80 machine code) 

— LM offset — allows transfers of any system tape 
to Disk file — automatically relocated. 

— LEVEL I — Lets you convert your computer back 
to Level 1 . 

— LVIDKSL — Saves and loads Level 1 programs to 
disk. 

— DIRCHECK — Tests disk directories for errors 
and lists them. 

— ASPOOL — An automatic spooler which routes a 
disk file to the printer whilst the computer con- 
tinues to operate on other programs. 

— LCDVR — a lower case drives which display lower 
case on the screen if you have fitted a simple lower 
case modification. 



DISK DRIVE USERS 
ELIMINATE CRC ERRORS 
AND 
TRACK LOCKED OUT MESSAGES 
FIT A PERC0M DATA SEPARATOR 
$37.00 plus $1.20 p&p. 
When Tandy designed the TRS-80 expansion interface, 
they did not include a data separator in the disk- 
controller circuitry, despite the I.C. manufacturer's 
recommendations to do so. The result is that many 
disk drive owners suffer a lot of Disk I/O errors. The 
answer is a data separator. This unit fits inside your 
expansion interface. It is supplied with full instructions 
and is a must for the serious disk user. 



MPI DISK DRIVES 
HIGHER PERFORMANCE - LOWER PRICE 

MPI is the second largest manufacturer of disk drives in 
the world. MPI drives use the same form of head 
control as 8" drives and consequently, they have the 
fastest track-to-track access time available — 5msec! All 
MPI drives are capable of single or double-density 
operation. Double-density operation requires the instal- 
lation of a PERCOM doubler board in the expansion 
interface. 

As well as single head drives, MPI also makes dual- 
head drives. A dual-head drive is almost as versatile as 
two single-head drives but is much cheaper. 

Our MPI drives are supplied bare or in a metal cabinet 
— set up to operate with your TRS-80 or SYSTEM 80. 
All drives are sold with a 90 day warranty and service is 
available through MICRO-80 PRODUCTS. 

MPI B51 40 Track Single Head Drive only $339 

MPi B52 40 Track Double Head Drive only $449 

Prices are for bare drives and include p&p. Add $10.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. 40 track drives are entirely compa- 
tible with 35 track drives. A 40 track DOS such as 
NEWDOS 80 is necessary to utilise the extra 5 tracks. 



OVER 800 KILOBYTES ON ONE DISKETTE! 
WITH MPI 80 TRACK DRIVES 

MPI 80 track drives are now available. The B91 80 
track single-head drive stores 204 Kilobytes of for- 
matted data on one side of a 5% inch diskette in single- 
density mode. In double-density mode it stores 408 
Kilobytes and loads/saves data twice as quickly. 
The B92 80 track dual-head drive stores 204 Kilobytes 
of formatted data on EACH side of a 5% inch diskette 
in single-density mode. That's 408 Kilobytes per 
diskette. In double-density mode, the B92 stores a 
mammoth 408 Kilobytes per side or 816 Kilobytes of 
formatted data per diskette. With two B92's and a 
PERCOM double, you could have over 1.6 Megabytes 
of on line storage for your TRS-80 for less than $1500!! 

MPI B91 80 Track Single Head Drive only $499 

MPI B92 80 Track Dual Head Drive only $599 

Prices are for bare drives and include p&p. Add $1 0.00 
per drive for a cabinet and $60.00 for a power supply 
to suit two drives. Note: 80 track drives will not read 
diskettes written on a 35 or 40 track drive. If drives 
with different track counts are to be operated on the 
same system, NEWDOS 80 must be used. 



CARE FOR YOUR DISK DRIVES? 

THEN USE 

3M's DISK DRIVE HEAD CLEANING DISKETTES 

$30.20 incl. p&p. 

Disk drives are expensive and so are diskettes. As with 
any magnetic recording device, a disk drive works 
better and lasts longer if the head is cleaned regularly. 
In the past, the problem has been, how do you clean 
the head without pulling the mechanism apart and run- 
ning the risk of damaging delicate parts. 3M's have 
come to our rescue with SCOTCH BRAND, non- 
abrasive, head cleaning diskettes which thoroughly 
clean the head in seconds. The cleaning action is less 
abrasive than an ordinary diskette and no residue is 
left behind. Each kit contains: 

— 2 head cleaning diskettes 

— 1 bottle of cleaning fluid 

— 1 bottle dispenser cap 
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USE TANDY PERIPHERALS ON YOUR SYSTEM-80 
VIA 
SYSPAWD-80- $119 incl. p&p 
The SYSTEM-80 hardware is not compatible with the 
TRS-80 in two important areas. The printer port is 
addressed differently and the expansion bus is entirely 
different. This means that SYSTEM-80 owners are 
denied the wealth of economical, high performance 
peripherals which have been developed for the TRS-80. 
Until now, that is. MICRO-80 has developed the 
SYSPAND-80 adaptor to overcome this problem.- A 
completely self-contained unit in a small cabinet which 
matches the colour scheme of your computer, it con- 
nects to the 50-way expansion part on the rear of your 
SYSTEM 80 and generates the FULL Tandy 40 way 
bus as well as providing a Centronics parallel printer 
port. SYSPAND-80 enables you to run an Exatron 
Stringy Floppy from your SYSTEM 80, or an LNW 
Research expansion interface or any other desirable 
peripherals designed to interface to the TRS-80 expan- 
sion port. Make your SYSTEM 80 hardware compatible 
with the TRS-80 via SYSPAND-80. 



PROGRAMS BY MICROSOFT 

EDITOR ASSEMBLER PLUS (L2/16K) 
$37.50 + $1 20 p&p 

A much improved editor-assembler and debug/monitor 
for L2/16K TRS-80 or SYSTEM 80. Assembles directly 
into memory, supports macros and conditional assem- 
bly, includes new commands-substitute, move, copy 
and extend. 

LEVEL III BASIC $59.95 plus $1.20 p&p 

Loads on top of Level II BASIC and gives advanced 
graphics, automatic renumbering, single stroke instruc- 
tions (shift-key entries) keyboard debounce, suitable 
for L2/16K and up (Not Disk BASIC) 

ADVENTURE ON DISK $35.95 plus $1.20 p&p 

This is the original ADVENTURE game adapted for 
the TRS-80. The game fills an entire diskette. Endless 
variety and challenge as you seek to rise to the level of 
Grand Master. Until you gain skill, there are whole 
areas of the cave that you cannot enter. (Requires 32K 
One Disk) 

BASIC COMPILER $208 plus $2.00 p&p 

New improved version, the Basic Compiler converts 
Disk BASIC programs to machine code, automatically. 
A compiled program runs, on average, 3-10 times faster 
than the original BASIC program and is much more 
difficult to pirate. 




MICRO-80's 16K MEMORY EXPANSION KIT 

HAS BEEN REDUCED IN PRICE EVEN MORE 

Larger volume means we buy better and we pass the 
savings on to you. These are our proven, prime, branded 
200 ns (yes, 200 nanosecond) chips. You will pay 
much more elsewhere for slow, 350 ns. chips. Ours are 
guaranteed for 12 months. A pair of DIP shunts is also 
required to upgrade the CPU memory in the TRS-80 - 
these cost an additional $4.00. All kits come complete 
with full, step-by-step instructions which include 
labelled photographs. No soldering is required. You do 
not have to be an experienced electronic technician to 
instal them. 



DISK DRIVE CABLES 
SUITABLE FOR ANY DISK DRIVES 

DC-2 2 Drive Connector Cable $35 incl. p&p 

DC-4 4 Drive Connector Cable $45 incl. p&p 



DOUBLE THE SPEED AND CAPACITY 
OF YOUR DISK DRIVES 
PERC0M D0UBLER ONLY $220 
plus $2.00 p&p 
Installing a Doubler is like buying another set of disk 
drives, only much cheaper!! The doubler works with 
most modern disk drives including:- MPI, Micropolis, 
Pertec, TEAC (as supplied by Tandy). The doubler 
installs in the TRS-80 expansion interface, the System- 
80 expansion interface and the LNW Research expan- 
sion interface in a few minutes without any soldering, 
cutting of tracks, etc. It comes complete with its own 
TRSDOS compatible double density operating system. 



DOUBLE-ZAP II - DOUBLE DENSITY PATCH 
FORNEWDOS80 
ONLY $53.00 plus $1.00 p&p 
If you are using NEWDOS 80, then you also need 
DOUBLE-ZAP II, on diskette. This program upgrades 
your NEWDOS 80 to double density with ADR (auto- 
matic density recognition.) It retains all the familiar 
features, including the ability to mix and match 
track counts on the same cable. In addition, it gives 
NEWDOS 80 the ability to mix densities on the same 
cable, automatically. If you place a single density 
diskette in drive 0, say and a double density diskette 
in drive 1, Double-Zapll will recognise this and read/ 
write to drive in single density whilst at the same 
time it reads/writes to drive 1 in double density! 



FLOPPY DOCTOR AND MEMORY DIAGNOSTIC 
(by MICRO CLINIC) $29.95 plus 50c. p&p 
Two machine language programs on a diskette together 
with manual which thoroughly test your disk drives 
and memory. There are 19 possible error messages in 
the disk drive test and their likely causes are explained 
in the manual. Each pass of the memory tests checks 
every address in RAM 520 times, including the space 
normally occupied by the diagnostic program itself. 
When an error occurs the address, expected data, and 
actual data are printed out together with a detailed 
error analysis showing the failing bit or bits, the corres- 
ponding IC's and their location. This is the most 
thorough test routine available for TRS-80 disk users. 



BOOKS 

LEVEL II ROM REFERENCE MANUAL 
^4.95 + $1.20 p&p 

Over 70 pages packed full of useful information and 
sample programs. Applies to both TRS-80 and SYSTEM 
80. 

TRS-80 DISK AND OTHER MYSTERIES 

$24.95 + $1.20 p&p 

The hottest selling TRS-80 book in the U.S.A. Disk file 

structures revealed, DOS's compared and explained, 

how to recover lost files, how to rebuild crashed 

directories — this is a must for the serious Disk user 

and is a perfect companion to any of the NEWDOS's. 

LEARNING LEVEL II 
$16.95 + $1.20 p&p 

Written by Daniel Lien, the author of the TRS-80 
Level I Handbook, this book teaches you, step-by-step, 
how to get the most from your Level II machine. 
Invaluable supplement to either the TRS-80 Level II 
Manual or the System-80 Manuals. 



HIGH QUALITY DISKETTES all prices include p&p 

40 TRACK NASHUA SINGLE SiDE/SlNGLE DENSITY ... $45.00 box ©f 10 



DOUBLE SIDE] 



MORE AUSTRALIAN SOFTWARE 



All programs designed to run on both the TRS-80 or the SYSTEM 80 without modification. Most programs include sound 



TRIAD VOL 1 -L2/16K 

Cassette $9.95 Disk $14.95 

+ 60c p&p 

Three separate games which test your powers of memory and 

concentration. The programs combine graphic displays and 

sound: 

SIMON-SEZ: Just like the electronic music puzzles on sale for 
more than $20. Numbers are flashed on the screen and sounded 
in a sequence determined by the computer. Your task is to 
reproduce the sequence, correctly. 

LINE?: Rather like a super, complicated version of noughts 
and crosses. You may play against another player or against 
the computer itself. But beware, the computer cheats! 
SUPER CONCENTRATION: Just like the card game but with 
more options. You must find the hidden pairs. You may play 
against other people, play against the computer, play on your 
own, or even let the '80 play on its own. 

TRIADVOL2-L2/16K 

Cassette $9.95 Disk $14.95 

+ 60c p&p 

Remember those "NUMERO" puzzles in which you had a 
matrix of numbers (or letters) with one blank space and you 
had to shuffle the numbers around one at a time until you 
had made a particular pattern? Well, SHUFFLEBOARD, the 
first program in this triad, is just this, except that the computer 
counts the number of moves you take to match the pattern 
it has generated — so it is not possible to cheat. 
MIMIC is just like SHUFFLEBOARD except that you only 
see the computer's pattern for a brief span at the beginning of 
the game, then you must remember it! 

In MATCHEM, you have to manoeuvre 20 pegs from the 
centre of the screen to their respective holes in the top or 
bottom rows. Your score is determined by the time taken to 
select a peg, the route taken from the centre of the screen to 
the hole and your ability to direct the peg into the hole with- 
out hitting any other peg or the boundary. 

VISURAMA L2/16K 

Cassette $9.95 Disk $14.95 

+ 60c p&p 

Two programs which give fascinating, ever-changing patterns 

on the screen. 

LIFE is the fastest implementation of the Game of Life you 
will see on your '80. Machine language routines create up to 
1200 new generations per minute for small patterns or up to 
100 per minute for the full 128 x 48 screen matrix. Features 
full horizontal and vertical wraparound. 

EPICYCLES will fascinate you for hours. The ever-changing 
ever-moving patterns give a 3D effect and were inspired by the 
ancient Greek theories of Ptolemy and his model of the Solar 
system. 

EDUCATION AND FUN - L1/4K, L2/16K 
Cassette $9.95 Disk $14.95 
+ 60c p&p 
Written by a primary school teacher to make learning enjoy- 
able for his pupils, there are five programs in both Level I and 
Level II to suit all systems: 

BUG-A-LUG: a mathematics game, in which you must get the 
sum correct before you can move. 

AUSTRALIAN GEOGRAPHY: learn about Australian States 
and towns, etc. 

SUBTRACTION GAME: build a tower with correct answers. 
HOW GOOD IS YOUR MATHS? Select the function (+, -, 
-^ or X) and degree of difficulty. 

HANGMAN: That well known word game now on your 
computer. 
Recommended for children from 6 to 9 years. 



COSMIC FIGHTER & SPACE JUNK - L2/16K 
Cassette $9.95 Disk $14.95 
+ 60c p&p 
Both programs have sound to complement their excellent 
graphics. In COSMIC FIGHTER, you must defend the earth 
against seven different types of alien aircraft. It is unlikely that 
you will be successful but you will have a lot of fun trying! 
You mission in SPACE JUNK is to clean up all the debris left 
floating around in space by those other space games. It is not 
as simple as it sounds and space junk can be quite dangerous 
unless you are very careful. 

SPACE DRIVE L2/4K&16K 

Cassette $7.95 Disk $12.95 

+ 60c p&p 

Try to manoeuvre your space ship through the meteor storms 
then land it carefully at the space port without running out of 
fuel or crashing. Complete with realistic graphics. 

STARFIRE AND NOVA INVASION L2/16K 
Cassette $9.95 Disk $14.95 
+ 60c p&p 
Both programs include sound to improve their realism. 
STARFIRE seats you in the cockpit of an X-wing fighter as 
you engage in battle with the deadly Darth Vader's Tie-fighters. 
Beware of the evil one himself and may the Force be with you. 
In NOVA INVASION, you must protect your home planet of 
Hiberna from the invading NOVADIANS. You have two fixed 
guns at each side of the screen and a moveable one at the 
bottom. Apart from shooting down as many invaders as 
possible, you must protect your precious hoard of Vitaminium 
or perish! 

AIR ATTACK AND NAG RACE - L2/16K 

Cassette $9.95 Disk $14.95 

+ 60c p&p 

An unlikely combination of programs but they share the same 

author who has a keen sense of humour. 

AIR ATTACK includes sound and realistic graphics. The air- 
craft even have rotating propellors! But they also drop bombs 
on you, so it's kill or be killed! 

NAG RACE lets you pander to your gambling instinct without 
actually losing real money. Up to five punters can join in the 
fun. Each race results in a photo-finish whilst there is a visible 
race commentary at the bottom of the screen throughout the 
race. Happy punting! 

FOUR LETTER MASTERMIND L2/16K 

Cassette $7.95 Disk $12.95 

+ 60c p&p 

There are 550 four-letter words from which the computer can 
make its choice. You have 12 chances to enter the correct 
word. After each try, the computer informs you of the number 
of correct letters and those in the correct position. You can 
peek at the list of possible words but it will cost you points. 
Makes learning to spell fun. 

MUSIC IV -L2/16K 

Cassette $7.95 Disk $12.95 

+ 60c p&p 

Music IV is a music compiler for your '80. It allows you to 
compose or reproduce music with your computer that will 
surprise you with its range and quality. You have control over 
duration (full beat to 1/16 beat) with modifications to extend 
the duration by half or one third for triplets. Both sharps and 
flats are catered for as are rests. Notes on whole sections may 
be repeated. The program comes with sample data for a well- 
known tune to illustrate how it is done. 



***SAVE 00$'s ***SAVE 00$'s***SAVE 00$'s***MICRO-80 EXPANSION INTERFACE *** 

MICRO-80's expansion interface utilises the proven LNW Research Expansion board. It is supplied fully built up and tested in an 
attractive cabinet with a self contained power supply, ready to plug in and go. The expansion interface carries MICRO-80's full, no 
hassle, 90-day warranty. 
Features include:- • Sockets for up to 32K of memory expansion a Disk controller for up to 4 disk drives • Parallel printer port 

• Serial RS232C/20mA I/O port • Second cassette (optional) 
The expansion interface connects directly to your TRS-80 L2/16K keyboard or, via SYSPAND-80 to your SYSTEM-80VIDEO GENIE 
Prices: HD-010-A Expansion Interfaces with K : $415.00 HD-010-B Expansion Interfaces with 32K : $475.00 HD-011 Data 
separator fitted (recommended) : add $25.00 HD-012 Dual cassette Interfaces fitted : add $15.00. 

The MICRO-80 Expansion Interface is also available in kit form. 
Prices: HD-013 Kit consisting of LNW Research PC board and manual, ALL components including cabinet & power supply : $335.00 
HD-01 1 Data separator for above : $22.00 HD-013 Dual cassette Interface kit : $12.00. 




for $49.00 



A choice of upper and lower case display is easier to read 
gives greater versatility. 

The Micro-80 lowercase modification gives you this facility 
plus the symbols for the 4 playing-card suits for $49 00 +' 
$2.00 p. & p. 

The Micro-80 modification features true below-the-line 
descenders and a block cursor 

Each kit comes with comprehensive fitting instructions 
and two universal lower-case drive routines on cassette to 
enable you to display lower case in BASIC programs 

The driver routines are self-relocating, self-protecting and 
will co-reside with other machine language programs such 
as Keyboard-debounce, serial interface driver programs etc 



plus $2.00 p & p 

Both programs give your TRS-80 m Model I or System 80 ,m 
an optional typewriter capability, i.e. shift for upper case 

The second programme also includes Keyboard-debounce 
and a flashing cursor 

You fit it Or we can. 

Fitting the modification requires soldering inside the 
computer This should only be carried out by an experienced 
hobbyist or technician 

If you are at all dubious, a fitting service is available in all 
capital cities for only $20.00 

A list of installers is included with each kit 




ADD A DISK DRI 
FOR ONLY $875.00 OR ADD TWO FOR ONLY $1199, 



The Micro-80 disk drive upgrade for the TRS-8CT Model III 
contains the following high quality components: 

1 or 2 MPI 40-track single head disk drives, 1 VR Data 
double-density disk controller board and 1 dual drive power 
supply plusall the necessary mounting hardware, cablesand 
comprehensive fitting instructions, which can be carried out 
with a minimum of fuss by any average computer owner. 

Fitting service isavailable for $25.00 in most capital cities. 



Daisy Wheel Typewriter/Printer 

MICRO-80 has converted the new OLIVETTI ET-121 DAISY WHEEL typewriter 
to work with the TRS-80 and SYSTEM 80 or any other microcomputer 
with a Centronics parallel port (RS 232 serial interface available 
shortly). The ET-121 typewriter is renowned for its high quality, 
fast speed (17 c.p.s.}, quietness and reliability. MICRO-80 is 
renowned for its knowledge of the TRS-80/SYSTEM 80 and its sensible 
pricing policy. Together, we have produced a dual-purpose machine:- 
an attractive, modern, correcting typewriter which doubles as a 
correspondence quality Daisy-wheel printer when used with your 
micro-computer. 

How good is it? - This part of our advertisement was typeset using 
an ET-121 driven by a TRS-80. Write and ask for full details. 



ONLY $1995 INC. S.T. 




' : - " " . ■ Hllll 



1.4 MEGABYTES ON LINE + 48K RAM 

for $ 3750 incl. Sales Tax 




MICRO-80's 

MODEL 380 + 

MICMO-80 has equipped the TRS-80 with two high reliability dual-head 80 track mini- 
floppy disk drives made by MPI, one of America's leading mini-disk drive manufacturers. 

This turns the mild-mannered Model 3 into a powerhouse able to handle the most dif- 
ficult business programs. The TRS-80 is one of the best-supported microcomputers in the 
world. MICRO-80 has been supporting the TRS-80 in Australia for 18 months and is one 
of Australia's leading dealers in MPI disk drives. 

2.8 MEGABYTES FOR $ 5250 i«ci. Sales Tax 

If you need even more file space you can add MICRO-80's external dual-drive cabinet 
enclosing two more dual-head 80 track drives for an additional $ 1500. 



COMPUTER PRICES 

MODEL 340 

2 40 TRACK SINGLE HEAD DRIVES GIVING 

350K FORMATTED STORAGE, 48K RAM $ 2850 incl sales ta- 

MODEL 340 + 

2 40 TRACK DUAL-HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM $ 3250 incl sales ta> 

MODEL 380 

2 80 TRACK SINGLE HEAD DRIVES GIVING 

700K FORMATTED STORAGE, 48K RAM $ 3250 incl sales tax 

MODEL 380 + 

2 80 TRACK DUAL-HEAD DRIVES GIVING 

1 .4 MEGABYTE FORMATTED STORAGE, 48K RAM $ 3750 incl sales tax 



COMPLETE SYSTEMS 

350K SYSTEM 

MODEL 340, EPSON MX-80 PRINTER 

DOSPLUS DISK OPERATING SYSTEM $ 3900 incl. sales tax 

700K SYSTEM (40 Track) 

MODEL 340 + , EPSON MX-80 PRINTER 

DOSPLUS DISK OPERATING SYSTEM $ 4300 incl sales tax 

700K SYSTEM (SO Track) 

MODEL 380, EPSON MX-80 PRINTER 

DOSPLUS DISK OPERATING SYSTEM $ 4300 incl. sales tax 

1.4 MEGABYTE SYSTEM 

MODEL 380 + , EPSON MX-80 PRINTER 

DOSPLUS DISK OPERATING SYSTEM $ 4800 incl. sales tax 

2 § MEGABYTE SYSTEM 

MODEL 380 + , DUAL EXTERNAL DRIVES, 

MX-80 PRINTER, DOSPLUS DISK OPERATING SYSTEM $ 6300 incl. sales tax 

4© THACK COMPATIBILITY 

MAKE 80 - PROGRAM TO CONVERT 

40 TRACK DISKS TO 80 TRACK $ 1 9 . 95 

COMPAT-8© - HARDWARE DEVICE TO SWITCH 

80 TRACK DRIVES TO 40 TRACK. GIVES FULL 

BI-DIRECTIONAL COMPATIBILITY 

(AVAILABLE SEPTEMBER '81) $ 65 . 00 

AH prices subject to change without notice. Prices are FOB Adelaide. All computers and systems carry MICRO-80's 

90-day Warranty covering parts and labour. 

ooooooooooo<k>ooooooooooooooooooooooooooooooooooooooooooooooooc 

HIGH QUALITY DISKETTES 

Despite the increases in duty and Sales Tax, MICRO-80 is able to offer high quality 
5V4 inch diskettes at bargain prices . . . 

4© Track Scotch Brand Single Side/ Single Density $55 box of It 

4© Track Verbatim Double Side/ Double Density $59 box off 1© 

77 Track Verbatim Single Side/ Single Density $59 box off 1© 

oooooooooooooooooooooooooooooeoe-oooooooooooooooooooooooooooooo 



PAGE 19 




All ©ur software is syllable far either the SYSTEM 80 'or the TRS-80 



NEW SOFTWARE FROM MICRO-BO PRODUCTS 
BUSINESS PROGRAMS 

MICROMANAGEMENT 
STOCK RECORDING SYSTEM (L2/16K) 

Cassette version $29.95 + $1.00 p&p 

Stringy Floppy version $33.95 + $1.00 p&p 

This system has been in use for 9 months in a number 
of small retail businesses in Adelaide. It is therefore 
thoroughly debugged and has been tailor made to suit 
the requirements of a small business. MICROMANAGE- 
MENT SRC enables you to monitor the current stock 
level and reorder levels of 500 different stock items per 
tape or wafer. It includes the following features:- 

— Add new items to inventory 

— Delete discontinued items from inventory 

— List complete file 

— Search for any stock number 

— Save data to cassette or wafer 
Load data from cassette or wafer 

— Adjusts stock levels from sales results and receipt 
of goods 

— List all items requiring reordering 

We can thoroughly recommend this program for the 
small business with a L2/16K computer. 



SCOTCH BRAND COMPUTING CASSETTES 
Super-quality personal computing cassettes. 

C-10packof10 $26.00 incl. p&p 

C-30packof10 $28.00 incl. p&p 



UTILITIES 

S-KEY by Edwin Paay $1 5.95 plus 50c. p&p 

S-KEY is a complete keyboard driver routine for the 
TRS-80 and becomes part of the Level II basic inter- 
preter. With S-KEY loaded the user will have many 
new features not available with the standard machine. 
S-KEY features: 

■* s-KEY provides an auto-repeat for all the keys on 
the keyboard. If any key is held down longer than 
about half a second, the key will repeat until it is 
released. 

* Graphic symbols can be typed direct from the key- 
board, this includes all 64 graphic symbols available 
from the TRS-80/SYSTEM 80. 

* S-KEY allows text, BASIC commands and/or 
graphics to be defined to shifted keys. This makes 
programming much easier as whole commands and 
statements can be recalled by typing shift and a 
letter key. 

* Because S-KEY allows graphics to be typed directly 
from the keyboard, animation and fast graphics are 
easily implemented by typing the appropriate 
graphics symbols directly into PRINT statements. 

* S-KEY allows the user to LIST a program with 
PRINT statements containing graphics, properly. 
S-KEY does this by intercepting the LIST routine 
when necessary. 

* S-KEY allows the user to list an updated list of the 
shift key entries to the video display or line printer. 

* S-KEY can be disabled and enabled when required. 
This allows other routines which take control of the 
keyboard to run with S-KEY as well. 

Each cassette has TRS-80, DISK and SYSTEM 80 
versions and comes with comprehensive documentation. 



BMON by Edwin Paay $19.95 plus 50c. p&p 

THE ULTIMATE HIGH MEMORY BASIC MONITOR 
L2/1648K 

Our own personnel refuse to write BASIC without first 
loading this amazing machine language utility program 
into high memory! BMON Renumbers; Displays BASIC 
programs on the screen while they are still loading; tells 
you the memory locations of the program just loaded; 
lets you stop a load part -way through; merges two 
programs, with automatic renumbering of the second 
so as to prevent any clashes of line numbers; recovers 
your program even though you did type NEW: makes 
one program invisible while you work on a second 
(saves hours of cassette time!); lists all the variables 
used in the program; makes SYSTEM tapes; lets you 
Edit memory directly ... the list goes on and on. 
Cassette comes with 16K, 32K and 48K versions, ready 
to load. Can anyone afford NOT to have BMON? 



EDUCATIONAL 

RPN CALCULATOR (L2/16K & 32K) 
$14.95$ 50c. p&p 

Give your computer the power of a $650 reverse polish 
notation calculator with 45 functions and selectable 
accuracy of 8 or 16 digits. The main stack and registers 
are continuously displayed whilst the menu is always 
instantly accessible without disturbing any calculations 
or register values. The cassette comes with both the 
16K and 32K versions, the latter giving you the addi- 
tional power of a programmable calculator. Comes 
with a very comprehensive 15 page manual, which 
includes instructions to load and modify the 32K pro- 
grammable version to run in 16K. Whether for business 
or pleasure, this package will prove invaluable, and turn 
you '80 into a very powerful instrument. 



GAMES 

MICR0P0LY (L2/16K) $7.50 $ 50c p&p 

Now you can play Monopoly on your micro. The old 
favourite board game has moved into the electronic era. 
This computer version displays the board on the screen, 
obeys all the rules and, best of all, the banker does not 
make mistakes with your change! 

CONCENTRATION (L2/16K) $7.50 + 50c p&p 

Another application of supergraphics. There are 28 
"cards" displayed on the screen, face down. Players 
take it in turn to turn them over with the object of 
finding matching pairs. There are 40 different patterns 
which are chosen at random, so the game is full of end- 
less variety. This is of particular value in helping young 
children to learn the art of concentrating and, at the 
same time, to introduce them to the computer. 

METEOR AND TORPEDO ALLEY (L2/16K) 
$9.95 + 50c p&p 

Those who frequent games arcades will recognize these 
two electronic games. In METEOR you must destroy 
the enemy space ships before they see you. In its most 
difficult mode, the odds are a thumping 238 to 1 
against you being successful. In torpedo alley you must 
sink the enemy ships without hitting your own supply 
ship. Both games include sound effects and are remark- 
ably accurate reproductions of the arcade games. 



Hi©H I 
■/SINGLE DENS1 



JALiTY DISKETTE! 
... $59.00 box of 11 
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AUSTRALIAN SOFTWARE (Cont.) 

GAMES 

SHEEPDOG (L2/16K) $7.50 + 50c p&p 

Ever wondered how a sheepdog manages to drive all 
those awkward sheep into a pen? Well, here is your 
chance to find out just how difficult it is and have a 
lot of fun at the same time. You control the sheepdog, 
the computer controls the sheep! As if that isn't 
enough, look out for the dingoes lurking in the bush! 

UBOAT $7.50 plus 50c p&p 

Real time simulation at its best! Comes with working 
sonar-screen and periscope, a full rack of torpedoes, 
plenty of targets, working fuel and battery meters, 
helpful Mothership for high-seas reprovisioning and 
even has emergency radio for that terrible moment 
when the depth charges put your crew at risk. Requires 
Level II/16K. 

SPACE INVADERS WITH SOUND $7.50 + 50c p&p 
Much improved version of this arcade favourite with 
redesigned laser and cannon blasts, high-speed cannon, 
50 roving drone targets, 10 motherships and heaps of 
fun for all. Level II with 4K and 16K versions on this 
cassette. 

G0LF(L2/16K) $7.50 + 50c p&p 

Pit your skills of mini-golf against the computer. Choose 
the level of difficulty, the number of holes and whether 
you want to play straight mini golf or crazy golf. Com- 
plete with hazards, water traps, bunkers and trees. 
Great fun for kids of all ages. 

DOMINOES(L2/16K) $7.50 + 50c p&p 

Pit your skill at dominoes against the computer, which 
provides a tireless opponent. Another application of 
supergraphics from the stabie of Charlie Bartlett. 
Dominoes are shown approximately life size in full 
detail (except for colour!). The monitor screen is a 
window which you can move from one end of the 
string of dominoes to the other. Best of all, you don't 
lose any pieces between games! 

KID'S STUFF (formerly MMM-1) $7.50 plus 50c. p&p 

Three games on one cassette from that master of TRS- 
80 graphics, Charlie Bartlett. Includes INDY 500, an 
exciting road race that gets faster and faster the longer 
you play, SUBHUNT in which your warship blows up 
unfortunate little submarines all over the place, and 
KNIEVEL (as in motorcycle, ramp and buses). 



OTHER PROGRAMS 

INFINITE BASIC BY RACET (32K/1 DISK) 
$49.95 + 50c. p&p 

Full matrix functions - 30 BASIC commands; 50 more 
STRING functions as BASIC commands. 

GSF/L2/48K $24.95 + 50c. p&p 

18 machine language routines including RACET sorts. 

BUSINESS ADDRESS AND INFORMATION SYSTEM 
(48K/DISK) $24.95 + 50c. p&p 

Allows you to store addresses and information about 
businesses, edit them and print them out. 

HISPED (L216,32 or 48K)&9.95 

This machine language program allows you to SAVE 
and LOAD programs and data to tape at speeds up to 
2000 band (4 times normal) using a standard cassette 
recorder. A switch must be installed to remove the 
XRXIII loading board, if fitted. 



LOWER CASE FOR YOUR TRS-80/SYSTEM 80 
Kit only $49.00 plus $2.00 p&p 

Give your TRS-80 or SYSTEM 80 a lower case display 
with proper descenders and a block cursor (similar to 
the TRS-80 Model III). Also includes symbols for the 
four suits of cards. Includes full fitting instructions, all 
necessary components and a special machine language 
driver program to enable lower case in BASIC. The 
modification is similar to the Tandy model and does 
not work with Electric Pencil without further modifi- 
cations. 

These kits require disassembly of your computer and 
some soldering. They should only be installed by 
someone who has experience in soldering integrated 
circuits, using a low power, properly earthed soldering 
iron. If you do not have the necessary experience/ 
equipment, we will install the modification for you for 
$20 plus freight in both directions. Make sure you 
arrange the installation with us first, before despatch- 
ing your computer, so that we can assure you of a 
rapid turn-around. We are also arranging to have 
installers in each State. See elsewhere in this issue for 
their names and addresses. 

PRICES 
Cat No. 
HD-020 Lower case mod kit for TRS-80 

$49.00 plus $2.00 p&p 
HD-021 Lower case mod kit for SYSTEM-80 

$49.00 plus $2.00 p&p 



EPSON MX-80 PRINTER 

ONLY *$949 Inc. Cable for TRS-80 and p&p 

(*Printer only - $940 incl. p&p) 

The EPSON MX-80 printer is compact, quiet, has 
features unheard of only 2-3 years ago in a printer at 
any price and, above all, is ultra-reliable. All available 
print modes may be selected under software control. 
Features include: 

— high quality 9x9 dot-matrix character formation 

— 3 character densities 

. 80 characters per line at 10 chars/inch 
.132 characters per line at 16.5 chars/inch 
. 40 characters per line at 5 chars/inch 

— 2 line spacings 

. 6 lines per inch . 8 lines per inch 

— 80 characters per second print speed 

— bi-directional printing 

— logical seeking of shortest path for printing 

— lower case with descenders 

— TRS-80 graphics characters built in 

— standard Centronics printer port 

The bi-directional printing coupled with the logical 
seeking of the shortest print path (which means that 
the print head will commence printing the next line 
from the end which requires the least travel, thereby 
minimising unutilised time) gives this printer a much 
higher throughput rate than many other printers 
quoting print speeds of 120 c.p.s. or even higher. 



GREEN SCREEN SIMULATOR 
$19.95 incl. p&p 
The GREEN SCREEN SIMULATOR is made from a 
deep green perspex, cut to fit your monitor. It improves 
contrast and is much more restful to the eyes than the 
normal grey and white image. 

Ail editorial. staff of MICRO-80 are now using GREEN 
SCREEN SIMULATORS on their own monitors. 

Please make sure to specify whether you have an old 
(squarish) or new (rounded) style monitor when order- 
ing. Not available for Dick Smith monitors. 
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7f>00 F.I=FT0F+8sR. < I , G) s N. I : RET. 

8000 Z=R. (13)*10-40:F. I=OTOZS. (Z/A. (Z) > *10s S=S+ ( Z/A. <Z> ) *10s F„ J=1T0350 

8010 N. J:GOS. 2000s IFZOON. I 

8020 60S . r^OOO s 60S . 7000 s C=0 s RET . 

lOOOO C. :P." *** GAME OVER ***" s IFS>HP. "NEW HIGH SCORE « ! !" 

10010 P. "YOUR SCORES " S S,sP."% "HIGH SCORE s "; Hs IFS>HH=S 

10020 N=OsY=l:IN. "CARE TO PLAY AGAIN" ;Q: IFQ=1C. :P. A.896; :G.50 



***** PRIME GENERATOR m/1 (C) B. HOFF ***** 

What is a prime? An ancient counting system that went out of fashion in 2000 B.C? No, a prime 
is a number which is exactly divisible (i.e. no remainder) by only two numbers - itself and 
1. 7 is prime, as it can only be divided (from now on assume "exactly divisible") by 7 and 

1, but 8 is not prime, for its divisors are 1, 2, 4 and 8. How do you generate primes? I have 
rusty memories of small programs that asked for a number, then performed a for next loop trying 
out all the integers up to the square root of the number, testing for exact divisibility, i.e: 

10 INPUT"TYPE IN A NUMBER" ;A 

20 FOR 1% = 2 TO SQR(A) 

30 IF A/1% = I NT ( A/ 1%) THEN 70 

40 NEXT 1% 

50 PRINT A;" IS A PRIME." 

60 STOP 

70 PRINT A;" IS NOT PRIME." 

80 END 

But this sort of routine had its problems, divisions weren't fast, so the computer seemed struck 
dumb on any number above about 500000 and the working wasn't terribly efficient. Why test for 
8 after 2 has been ruled out or 9 after 3 has been tried, for any number that is not divisible 
by 3 is certainly not divisible by 9, and what about getting lists or tables of primes. Won't 
the division - loop method be painfully slow. 

The next addition to the program was based on the fact that "A number is prime if and only if 
it cannot be exactly divided by all previous primes" (up to the number's square root). This 
was an improvement because there was no double testing of factors and the for next loop had 
less work to do. This program used an array, however, and especially on 16K machines the memory 
limit was easily reached. Divisions still slowed things down and efficiency could not be improved 
noticeably until a better way of finding primes could be found. Then one day a very neat little 
way of computing lists of primes fell into the author's possession. Its method of operation 
is best described by example: Suppose we want to generate all the primes up to 10. First, 
we set up a list of all the integers from 2 to 10, i.e. 

2 3456789 10 

Now, we come along to the first number in the list, 2 and we cross off all the multiples of 

2, excluding 2 itself. The list then reads: 

2 3 5 7 9 

The next number that has not been crossed off is 3, so again all multiples are crossed off, 
leaving: 

2 3 5 7 

The next uncrossed number in the list is 5, but since this is beyond the square root of the 
limit of primes we are doing, no further calculations are needed. The last thing that needs 
to be done is that all the numbers not crossed out are printed, i.e. 2 3 5 7 is the result of 
this run. Note that only additions need be used - no division or multiplication is needed. 
Note also that the routine gets faster as it goes, the first loop being the slowest, then successive 
loops having to cross less and less numbers. 

********************************************************************** 

ED. That great splodge of asterisks is to make sure you notice this line and the fact that 
the listing supplied below by the author is NOT Microsoft BASIC and therefore of course needs 
to be changed before it would run in an '80 and, anyway, it is only supplied as an example and 
why bother converting the listing anyway as his m/1 program does the same thing, only faster 
and that DOES run on an "80. Another great splodge of asterisks coming up (I had some left 
over from the last time). 

********************************************* 

A BASIC program to do the generation of primes as given above went as follows: 
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1 OPTION SPREC define No. handling as single precision 

10 DIMA$1 (32767) string Array, 32767 elements, length 1 each 

20 1=3 we will generate only the odd Nos in list. 

30 A$<I)="A" 

40 1=1+2 

50 IF K 32767 THEN 30 ELSE 1=3 

70 IF A*<I>=""THEN 120 ELSE J=I+I 

90 A$(J)="" cross off a number from the list 

100 J=J+I 

110 IFJK32768THEN90 have we finished crossing off numbers 

120 1 = 1+2 n e n t n u m b e r i n the 1 i s i 

130 IF K182THEN70 182 is the square root of 32767 

140 SKIP go to a new page (ed., CLS maybe) 

150 PRINT" 2"s 2 is not generated so it must be printed 

1 6 I *= 3 f o r p r i n tin g o u t n o s not crosse d o f f 

170 I FAV ( I ) ="A" THENPR1MTUSEIN6 220, I 

180 1 = 1+2' look for next number to print out 

190 IFK3276STHEN170 

200 PRINT 

210 SKIP 

220 FORM PIC(ZZZ2Z#) microsoft equivalent ?USE I NG "######" 3 I 5 

in line 170 

230 END 

Despite being in IBM V/S BASIC, most of the code above is straightforward. I is a pointer indi- 
cating the position in the list of the next number to be crossed off. J is the pointer used 
for crossing off numbers. Only additions and compares are used, making the routine easy to 
transcribe into machine language. Note also that the FOR NEXT loops are converted into increment 
and compares, originally to help attain maximum speed but also making conversion into machine 
code easy and painless. 

Finally then we get to the program that this article is all about. The IBM listing above took 
1.47 minutes to run primes up to 32767 compared to this machine language version which will 
run primes up to 65535 in 14 seconds. 

HOW TO LOAD 

Using a suitable monitor enter the machine code into your system and save it to tape or enter 
the assembly listing into your machine using EDTASM. 

LOAD ADDRESS 

START END ENTRY 

HEX - 4300 43D5 4300 

DEC - 17152 17365 17152 

To run the program answer MEMORY SIZE? by pressing the ENTER/NEWLINE key then type SYSTEM and 
answer the response with the program name PRYME and press the ENTER/NEWLINE key. 

Answer the second response *? with:- /17152 and press the ENTER/NEWLINE key. The screen will 
go blank for a few seconds and then the prime numbers will be listed on the screen in columns. 
At the completion of the program it will return you to BASIC with READY 
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The source code listing has been written for the MICROSOFT Editor/Assembler Plus and will not 
assemble correctly via the Radio Shack Editor Assembler as macros are used. Those who do not 
have the Editor/Assembler Plus may enter the object code shown in the two left-hand columns 
using a suitable monitor program such as BMON. 



•300 


00100 




ORG 


4300H 




00110 BITS 


MACRO 


#A 




00120 




PUSH 


HL 




00130 




PUSH 


BC 




00140 




XOR 


A 




00150 




RR 


H 




00160 




RR 


L 




00170 




JR 


NC> P#*YM 




00180 




LD 


Bi3 




00190 




XOR 


A 




00200 A 


i#*YM 


RR 


H 




00210 




RR 


L 




00220 




RRA 






00230 




DJNZ 


A#*YM 




00240 




RLCA 






00250 




RLCA 






00260 




RLCA 






00270 




LD 


B»A 




00280 




INC 


B 




00290 




XOR 


A 




00300 




SCF 






00310 B#*YM 


RLA 






00320 




DJNZ 


B#*YM 




00330 




LD 


BC»BASE 




00340 




ADD 


HLiBC 




00350 




COND 


#A=2 




00360 




CPL 






00370 




ENDC 






00330 




AND 


< HL. ) 




00390 




COND 


#A=2 




00400 




LD 


< HL ) » A 




00410 




ENDC 






00420 


P#$YM 


POP 


BC 




00430 




POP 


HL 




00440 




ENDM 




4300 21A643 


00450 


START 


LD 


HL?MESS 


4303 CDA728 


00460 




CALL 


28A7H 


4306 CD4900 


00470 




CALL 


49H 


4309 FE59 


00480 




CP 


' Y' 


430B 2005 


00490 




JR 


NZ»GO 


430D 3E01 


00500 




LD 


A? 1 


430F 329C40 


00510 




LD 


(409CH) 5 A 


4312 0612 


00520 


GO 


LD 


B» 12H 


4314 3E0D 


00530 




LD 


A?0DH 


4316 CD3A03 


00540 


GO 2 


CALL 


33AH 


4319 10FB 


00550 




DJNZ 


G02 


43 IB 21D443 


00560 




LD 


HLjBASE 


43 IE 36FF 


00570 




LD 


( HL ) 5 0FFH 


4320 11D543 


00580 




LD 


DE»BASE+1 


4323 010110 


00590 




LD 


BCi 1001H 


4326 EDB0 


00600 




LDIR 




4328 210300 


00610 




LD 


HL>3 


432B CDAF43 


00620 


L70 


CALL 


TEST 


432E 44 


00630 




LD 


B»H 


432F 4D 


00640 




LD 


C*L 


4330 282F 


00650 




JR 


Z,L120 


4332 09 


00660 




ADD 


HL»BC 


4333 


00670 


L90 


BITS 


2 


4333 E5 






PUSH 


HL 


4334 C5 






PUSH 


BC 


4335 AF 






XOR 


A 


4336 CB1C 






RR 


H 


4338 CB1D 






RR 


L 


433 A 30 IB 






JR 


NCP0000 


433C 0603 






LD 


B»3 


433E AF 






XOR 


A 


433F CB1C 




A0000 


RR 


H 


4341 CB1D 






RR 


L 


4343 IF 






RRA 





ISSUE 


19 (JUNE 


1981) 






MICRO-80 


4344 


10F9 






DJNZ 


A0000 


4346 


07 






RLCA 




4347 


07 






RLCA 




4348 


07 






RLCA 




4349 


47 






LD 


Bi A 


434A 


04 






INC 


B 


434B 


AF 






XOR 


A 


434C 


37 






SCF 




434D 


17 




B0000 


RLA 




434E 


1 0FD 






DJNZ 


B0000 


4350 


01D443 






LD 


BCjBASE 


4353 


09 






ADD 
COND 


HL,BC 


4354 


2F 






CPL 
ENDC 




4355 


A 6 






AND 
COND 


( HL ) 


4356 


77 






LD 
ENDC 


( HL ) , A 


4357 


CI 




P0000 


POP 


BC 


435 B 


El 






POP 
ENDM 


HL 


4359 


79 


00680 




LD 


A 5 C 


435 A 


':■'■".: 


00690 




ADD 


A i L 


435B 


6F 


00700 




LD 


L , A 


435 C 


/8 


00710 




LD 


A»B 


435D 


8C 


00720 




ADC 


AiH 


435 E 


67 


00730 




LD 


H ? A 


435F 


30D2 


00740 




JR 


NC»L90 


4361 


110200 


00750 


L 1 20 


LD 


DE<2 


4364 


60 


00760 




LD 


H , B 


4365 


69 


00770 




LD 


L,C 


4366 


19 


00780 




ADD 


HLiDE 


4367 


110001 


00790 




LD 


DE<256 


4 36 A 


CD901C 


00800 




CALL 


1 C90H 


436D 


38BC 


00810 




JR 


CL70 


436F 


210200 


00820 




LD 


HL 5 2 


4372 


E5 


00830 




PUSH 


HL 


4373 


CDAF0F 


00840 




CALL 


0FAFH 


4376 


El 


00850 




POP 


HL 


4377 




00860 




INC 


HL 


4378 


CDAF43 


00870 


L170 


CALL 


TEST 


437B 


2817 


00880 




JR 


Z , NO 


437D 


3A2040 


00890 




LD 


A, (4020H) 


4380 


E607 


00900 




AND 


-T 
I 


4382 


EE07 


009 1 




XOR 


-7 


4384 


C6C1 


00920 




ADD 


A»0C1H 


4386 


CD2A03 


00930 




CALL 


32AH 


4389 


E5 


00940 




PUSH 


HL 


4 38 A 


CDAF0F 


00950 




CALL 


0FAFH 


438D 


El 


00960 




POP 


HL 


438E 


3A8038 


00970 


WAIT 


LD 


A, (3880H) 


4391 


B7 


00980 




OR 


A 


4392 


20FA 


00990 




JR 


NZj WAIT 


4394 


23 


0.1000 


NO 


INC 


HL 


4395 


23 


01010 




INC 


HL 


*+o-/o 


110100 


01020 




LD 


DE, 1 


4399 


CD90J.C 


01030 




CALL 


1 C90H 


439C 


20DA 


01040 




JR 


NZ»L170 


439E 


3E0D 


01050 




LD 


A,0DH 


43A0 


CD3A03 


01060 




CALL 


33AH 


4 3 A 3 


C3CC06 


01070 




JP 


6CCH 


4 J f-i 6 


50 


01080 


MESS 


DEFM 


' PRINTER?' 


43A7 


52 










4 3 A y 


49 










43A9 


4E 










43AB 


5 4 










4 3 AD 


3F 










43AE 


B0 


01090 




DEFB 





43 AF 




01100 


TEST 


BITS 


1 


■t JAr 


F "i 






PUSH 


HL 


43B0 


C5 






PUSH 


BC 


4 3B1 


,-,: 






XOR 


A 
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SUE 19 


(JUNE 198" 


1) 




MICRO-80 


43B2 


CB1C 




RR 


H 


43B4 


CB1D 




RR 


L 


43B6 


3019 




JR 


NCP0001 


43B8 


0603 




LD 


B»3 


43BA 


AF 






XOR 


A 


43BB 


CB1C 


A0001 


RR 


H 


43BD 


CB1D 




RR 


L 


43BF 


IF 






RRA 




43C0 


10F9 




DJNZ 


A0001 


43C2 


07 






RLCA 




43C3 


07 






RLCA 




43C4 


07 






RLCA 




43C5 


47 






LD 


Bi A 


43C6 


04 






INC 


B 


43C7 


AF 






XOR 


A 


43C8 


37 






SCF 




43C9 


17 




B0001 


RLA 




43CA 


10FD 




DJNZ 


B0001 


43CC 


01D443 




LD 


BCjBASE 


43CF 


09 






ADD 
COND 
CPL 
ENDC 


HLiBC 
1=2 


43D0 


A6 






AND 
COND 
LD 
ENDC 


(HL) 

1=2 

( HL) » A 


43D1 


CI 




P0001 


POP 


BC 


43D2 


E1 






POP 
ENDM 


HL 


43D3 


C9 




011.1 


RET 




43D4 






011. BASE 


EQU 


$ 


4300 






01130 


END 


START 


0000(2 


) TOTAL ERRORS 






A000G 


) 


433F 








A0001 




43BB 








B000E 


) 


434D 








B0001 




43C9 








BASE 




43D4 








BITS 






M 






GO 




4312 








G02 




4316 








LI 20 




4361 








L170 




4378 








L70 




432B 








L90 




4333 








MESS 




43A6 








NO 




4394 








P0000 


4357 








P0001 




43D1 








START 


4300 








TEST 




43AF 








WAIT 




43SE 
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***** CHORD PRACTICE LII/4K 



(C) DR. A.F.J. BELL 



INTRODUCTION. 

This program displays a series of random chord names either on the screen or on a printer, letting 
the user practise his chord fingering either by trying to keep up with the screen display or 
by reading a computer printout. The program will request the user to select the KEY imusicai 
not keyboard) in which he wishes to practise his chords, and will then proceed to display tne 
chord names on the screen until a timing loop in the program returns you to the menu, hor anyDoay 
unfamiliar with chords, here is a brief description: 

A chord is a group of notes (3 or more) which are played simultaneously. They are usually (on 
a keyboard instrument) played with the left hand whilst the right hand plays the melody (the 
recognisable portion of a tune). A knowledge of music is required to use this Program, (actual 
chord fingerings are not displayed, only a prompt as to, which chord is required) Intending 
users who are unfamiliar with chords and wish to learn may obtain a book on chord fingering 
from most music stores. 
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Sample Printout from program ** 



Chords in G and F 



C7 


C 


G 


C 


C7 


Dm 


D7 


Bb 


Bb 


Dm 


c 


Bb 


G 


F 


F 


D7 


F 


Em 


Bb 


Bm 


F 


G 


Em 


Bb 


Dm 


C7 


Bb 


G 


G 


D7 


C7 


r 


G 


G 


Em 


G 


C 


c 


F 


Bb 


F 


Em 


G 


Em 


C7 


D7 


C7 


C7 


C7 


D7 


C7 


Bb 


G 


Bb 


Em 


Dm 


G 


F 


Em 


Em 


F 


C 


Bb 


D7 


Em 


Bb 


Bb 


Em 


F 


Em 


Bb 


C7 


Dm 


Bb 


D7 


F 


Bb 


Bb 


E.m 


Bb 


C7 


C7 


Em 


D7 


D7 


D7 


F 


G 


Bb 


C7 


C 


C 


Em 


G 


Dm 


D7 


C 


G 


D7 


Em 


G 


G 


D7 


Dm 


F 


Bb 


Dm 


C7 


Dm 


Ern 


Em 


Bb 


G 


C7 


c 


C 


G 


Bb 


F 


D7 


F 


Dm 


Bb 


Dm 


Dm 


D7 


Dm 


Dm 


C 


C 


D7 


C7 


Em 


Bb 


C 


C 


C7 


E 


G 


Bb 


Em 


C7 


c 


Em 


Em 


Dm 


Bb 


F 


F 


C7 


D7 


Bb 


G 


C7 


C7 


D7 


C 


F 


Dm 


C7 


D7 


Em 


Dm 


F 


C7 


Bb 


C 


Dm 


D7 


Em 


F 


F 


F 


F 


C7 


Dm 


Em 


D7 


D7 


D7 


Dm 


D7 


D7 


Em 


F 


D7 


Dm 


C 


D7 


G 


p 


C7 


C7 


Em 


C7 


Bb 


Bb 


G 


G 


C 


F 


Dm 


F 


C 


F 


Bb 


Dm 


C7 


c 


Bb 


F 


C 


G 


Dm 


Bb 


G 


'0 7 


C7 


F 


G 


C7 


C7 


C 


C7 


C 


C 


Dm 


C7 


Dm 


F 


Em 


Bb 


Dm 


Bb 


Em 


Bb 


D7 


F 


G 


G 


F 


Bb 


c 


G 


G 


C7 


c 


C7 


Dm 


Em 


Bm 


Em 


Dm 


Em 


Dm 


Bb 


G 


C7 


Em 


Em 


E 


G 


Em 


C7 


Em 


C7 


F 


r 


Dm 


Dm 


Din 


F 


Bb 


Bb 


Em 


D7 


Bb 


C7 


Bb 


G 


Dm 


Em 


C 


D7 


C 


Q 


G 


Bb 


Din 


Bb 


D7 


Bb 


Bm 


C 


G 


Dm 


D7 


Dm 


Bb 


Em 


Dm 


C7 


Dm 


Dm 


C7 


Em 


Bb 


Dm 


C7 


C7 


B7 


Bb 


G 


F 


F 


c 


C7 


c 


Em 


F 


D7 


Dm 


Em 


C 


Ern 


G 


C 


C7 


C7 


E 


r" 


Em 


C 


Dm 


Em 


Dm 


V 


C 


C7 


c 


Bb 


F 


C7 


F 


C 


G 


Em 


D7 


Em 


F 


Dm 


Dm 


Em 


F 


C 


D7 


D7 


Bb 


C 


G 


G 


Em 


D7 


C7 


C7 


C 


C 


C 


E 


C7 


B7 


Bm 


F 


Bb 


Em 


r 


C7 


C 


Em 


D7 


G 


D7 


Dm 


Em 


Bb 


Dm 


D7 


F 


F 


C 


G 


G 


D7 


Dm 


Em 


Bb 


D7 


Bb 


Bb 


F 


C 


Dm 


F 


Dm 


C7 


G 


C7 


Ern 


G 


G 


Em 


C7 


C 


Em 


F 


C 


C 


C7 


F 


G 


Em 


Bb 


G 


F 


Dm 


Bb 


C 


F 


Dm 


Ell! 


C7 


D7 


E 


Dm 


Dm 


D7 


C7 


C 


Em 


C7 


c 


G 


Em 


B7 


Em 


C 


D7 


G 


D7 


C 


C 


Bb 


Dm 


C7 


C 


C 


Em 


Em 


C 


F 


C7 


G 


D7 


D7 


Bb 


D7 


Bb 


F 


Dm 


Bm 


Dm 


c 


c 


C 


c 


D7 


Dm 


Bb 


Bb 


G 



10 » CHORD PRACTICE 

20 * A FJ BELL 17/03/81 

30 * Uses 2. 1 Kbytes 

40 DEFINT A-ZsDIM CHRD* < 12) , OPTN* <S) 

50 ' Defines chords and options 

60 FOR L=l TO 12s READ CHRD* <L> : NEXT 

70 DATA C,G7,F,Am 

80 DATA G 5 D7,C s Em 

90 DATA F,C7,Bb,Dm 

100 FOR L=l TO 8s READ OPTNS <L) : NEXT 

HO DATA "Chords in C" 

120 DATA "Chords in G" 

130 DATA "Chords in F" 

140 DATA "Chords in C and G" 

150 DATA "Chords in C and F" 

160 DATA "Chords in G and F" 

170 DATA "Chords in C, G, and F" 

180 DATA "End" 

190 " Displays options 

200 CLSs PRINT: PRINT! PRINT CHR*<23) TAB ( 12) "Options" s PRINT 

210 FOR L=l TO 8 

220 PRINT TAB (5) CHR*(64+L);" " 5 OPTN*<D 

230 NEXT 

240 PRINT TAB(7)"What is your choice ? "; 

250 0$=INKEY*s IF 0*=""GOTO 250 

260 PRINT 0*:OPTN=ASC<0*)-64 

270 IF 0PTN<1 OR 0PTN>8 GOTO 250 

280 IF 0PTN=8 GOTO 570 

290 FLAG=0 

300 PRINT TAB<7)"Lineprinter or VDU *> " 

310 R*=INKEY*:IF R$=""GOTO 310 

320 IF R*="V" THEN CLS: PRINT CHR$ (23) s GOTO 360 
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330 IF R*O"L"G0T0 310 

340 IF PEEK < 14312)063 THEN PRINT"Lineprinter not ready" 

350 LPRINT CHR*<27>5CHR*<66> 



360 
370 



400 

410 IF OPTN= 



440 
450 



' Sets parameters 

IF 0PTN=1 THEN RANGE= 4s FACTR=0; GOTO 440 
380 IF 0PTN=2 THEN RANBE= 4s FACTR=4; GOTO 440 
390 IF 0PTN=3 THEN RANGE= 4; FACTR=8s GOTO 440 

IF 0PTN=4 THEN RANGE= 8s FACTR=0s GOTO 440 

THEN RANGE= 12s FACTR=OsFLAG=ls GOTO 440 
420 IF 0PTN=6 THEN RANGE= 8s FACTR=4s GOTO 440 
430 IF 0PTN=7 THEN RANGE=12s FACTR=Os GOTO 440 

' Displays or printsout chord 

IF R$="L" THEN LPRINT TAB (32-LEN (OPTN* (OPTN) ) /2) OPTN$<OPTN> 
: LPRINT" " 
460 FOR L=l TO 480 
470 X=RND (RANGE) +FACTR 

480 IF FLAG=1 AND (X>4 AND X<9) GOTO 470 

490 IF R*="V" THEN PRINT 3 480 , CHRD* ( X ) s : FOR J=l TO SOOsNEXT Js 
PRINT 3 480, STRING* (2, 32) s FOR K=l TO ISOsNEXT KsGOTO 530 
500 LPR I NT US I NG " 7. "A " ; CHRD* < X ) ; 
510 IF L/4=INT(L/4) THEN LPRINT" "5 
520 IF L/16=INT(L/16) THEN LPRINT" " 
530 RANDOM 
540 NEXT 

550 IF R$="V"GOTO 190 

560 FOR L=l TO 8s LPR I NT" "s NEXT s GOTO 190 
570 CLSsEND 



***** DOG RACE LII/4K 



(C) J.D. INGRAM ***** 



Four dogs are lined up and move via a random number between 1 and 4 generated by the computer. 
The dogs are modularized and so the one subroutine will move the four dogs when the respective 
updated coordinates are "plugged" into the "move" subroutine. 

Line 10 sets the initial coordinates for each dog. Lines 20 and 50 set the X and Y coordinates 
firstly to A and B and then to I and J. The GOSUB 300 is a modular "standing dog". 

Lines 80 and 110 loads the selected dog's current coordinates into X and Y and then goes to 
the "move" subroutine. Line 150 determines that if no dog has reached the finish line, another 
move can be made. However, if any dog has touched the finish line then lines 160 and 190 determine 
which dog is the winner. So place your bets and type RUN and as the author says, "when taking 
my Scottie for a walk he doesn't move much faster, stopping at each blade of grass to ". 



10 CLS s 'COPYRIGHT <C) 1978 BY J. D, INGRAM, PO BOX 244,6AWLER 5118. 

20 PR I NTS 15, "=== THIS IS A DOG RACE ===" ; 3 F0RF=0T03333s NEXTF 

30 CLSs A=22s B=5s C=22s D=15s G=22s H=25s 1=22; J =35 

40 X=AsY=B:G0SUB250 

50 X=CsY=DsGOSUB250 

60 X=GsY=HsG0SUB250 

70 X=I:Y=JsG0SUB250 

80 PR I NT5>252 , " NO 1 " ; : PR I NT3444 , " NO 2 " ; s PR I NT3636 , " NO 3 " ; s PR I NT38 

28, "NO 4"; 

90 F0RY=4T045STEP5sSET(117,Y) sNEXTY 

100 PR I NT30 , ""s s INPUT "PRESS 'ENTER' KEY TO START RACE" 5 A* 

110 Z=RND<4) 

120 IFZ=1 X=As Y=Bs G0SUB290s A=X: G0T0160 

130 IFZ=2X=CsY=DsG0SUB290:C=XsG0T0160 

140 IFZ=3X=Gs Y=Hs G0SUB290: G=Xs G0T0160 

150 IFZ=4X=IsY=JsG0SUB290sI=XsG0T0160 

160 IFX<120G0T0110 

NUMBER 1 

NUMBER 2 

NUMBER 3 

NUMBER 4 



w 


I 


N 


N 


E 


R ! 


!"?;G0T0210 


w 


I 


N 


N 


E 


R ! 


i " 5 :G0T0210 


w 


I 


N 


N 


E 


R ! 


! "isG0T0210 


w 


I 


N 


N 


E 


R i 


! "1 SG0T0210 



170 IFA>=120PRINT3128„ 

180 IFO=120PRINT3384, 

190 IFG>=120PRINT5>576 ? 

200 I F I >= 1 20PR I NT3768 , 

210 F0RF=0T02222s NEXTF* PRINT30, " " 5 

220 INPUT "ANOTHER RACE ? s TYPE A 1 . 

230 IFS=1G0T030 

240 END 

250 SET < X-9, Y) s SET < X-20, Y) s SET ( X-6, Y+l ) s SET ( X-7, Y+l ) 

260 SET (X-8, Y+l ) s SET (X-19, Y+l ) s SET (X-10 s Y+4) s SET ( X-17, Y+4) 

270 SET<X-ll,Y+5) s SET (X-16, Y+5) 



IF NOT TYPE A 0"|S 
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280 F0RU=9T018: F0RV=2T03; SET ( X-U, Y+V) s NEXTVs NEXTUs RETURN 

290 RESET ( X-20, Y) : RESET ( X-19, Y+l ) s SET ( X-I7, Y+l ) s SET < X- 16, Y> 

300 SET ( X-5, Y+l ) : SET ( X~4, Y+l ) : RESET ( X-9, Y) s SET < X-6, Y> 

310 RESET (X™ 18, Y+2) s RESET (X-17, Y+2) : SET (X-8, Y+2) s SET (X-7, Y+2) 

320 RESET (X-S, Y+l ) : RESET ( X-7, Y+l ) -. RESET ( X-l 1 , Y+5) : RESET <X-10, Y+4 

) 

330 SET (X-8, Y+4) : SET ( X-7, Y+5) : RESET (X-18, Y+3) : RESET (X-17, Y+3) 

340 SET ( X-8, Y+3) : SET (X-7, Y+3) s RESET (X-17, Y+4) : SET ( X-15, Y+4) 

350 RESET(X-17,Y+1) : SET < X-15, Y+l ) : RESET (X-16, Y+2) s RESET (X-16, Y+3 

) 

360 RESET(X-15,Y+2)sRESET(X-15,Y+3)sRESET(X-16,Y+5):RESET(X-lS,Y 

+5) 

370 RESET < X-15, Y+4) 

380 SET(X-13,Y+4) s SET (X-12, Y+5) s RESET (X-8, Y+4) z SET (X-6, Y+4) 

390 SET (X-6, Y+2) : SET (X-5, Y+2) : SET ( X-6, Y+3) : SET ( X-5, Y+3) 

400 SET(X-3,Y+1) s SET ( X-2, Y+l ) : RESET (X-6, Y) :SET(X-5,Y) 

410 RESET (X-6, Y+l ) s RESET ( X-5, Y+l ) : X=X+4: RETURN 



***** LIST DISABLE LII/4K (C) B. HOFF ***** 

INTRODUCTION. 

Many has been the time when you have left a program on the '80 to do complex tasks, such as 
a 724 day program to prove the four-colour map theorem, only to find that on the 723rd day someone 
has come along, pressed BREAK and typed 

10 PRINT "HELLO"; 
20 GOTO 10 

or changed line 10360 from GOTO 560 to GOTO 560700 or something equally infuriating. Apart 
from looking for the correct neck to twist, did you not also wish that there was a way of stopping 
people from BREAKing, LISTing, EDITing or NEWing (or in some cases, CSAVEing) your programs. 
Well, this program is able to cut out access to the computer to the point where, short of rebooting 
DOS or restarting at the MEMORY SIZE? question, i.e. turning the computer off, it is impossible 
for any user to modify the program in memory. The comments should make operation of the program 
clear, but I will give two common examples. Suppose your friends insist on copying all your 
programs. Simply load the disable routine, add 186,-173 to line 3 and RUN. Everything will 
work normally except CSAVE and SAVE which will be disabled, along with BREAK. Or the computer 
is on display and you don't want anybody to look at the program. Load the program and extend 
line 3 with 185,167,174,-142 then change the data item 32 to 40. After RUNning, everything 
will be disabled except CLOAD, LOAD, SYSTEM and RUN. To find the keywords, run this program:- 

10 X= 1 28 s FOR I =57 1 21 06 1 76 s PR I NTCHR* ( PEEK ( I ) AND 1 27 ) 5 : I FPEEK ( I + 1 ) 
M27THENPRINTX, : X = X + 1 
20 NEXT 



1 'LIST DISABLE (C) 1980 BY BRENTON HOFF 

2 CLEAR: P=PEEK ( 16548) +PEEK (16549) *256; F0RI=PT0P+99s RE AD J: POKE I , A 
BS(J) : IFJ>=0THENNEXTELSEK=I+l:L=I-P-34s I=P+35s POKEP+17, IAND255:P0 
KEP+18, I 7256: POKEP+20, LAND255: POKEP+21 , L/256: F0RI=0T02s P0KEP+32+I 
, PEEK ( 16818+1 ) ; NEXT; POKE 16396, 241 s P0KE16397, 201 

3 P0KE16819,PAND255;P0KE16820,P/256;P0KE16818, 195: POKEK, O; K=K+1 s 
POKEK, O; POKEK+l , Os POKE 16548, KAND255: P0KE16549, K/256* 

4 DATA56, 24, 245, 229, 213, 229, 209, 19, 26, 183, 40, 17, 254, 128, 56, 247, 3 
3, O, 0,1, O, O, 237, 177, 32, 237, 195, 204, 6, 209, 225, 241 , 201 ,0,0 

5 

HOW TO USE : 
TYPE IN THE DECIMAL VALUES OF THE KEYWORDS YOU WANT TO 
ENABLE/DISABLE, WITH LAST ELEMENT NEGATIVE. THEN EITHER 
1. SIMPLY RUN IF YOU WANT ONLY THE KEYWORDS JUST TYPED IN 
DISABLED, OR 
6 '2. CHAN6E THE DATA ITEM 32 TO 40 (JR NZ, TO JR Z, ) 

FOR WHEN YOU WANT TO DISABLE ALL BUT THE KEYWORDS 
JUST TYPED IN. 
REPLACE FIRST TWO DATA ITEMS WITH ZERO IF USER WANTS 
TO TYPE IN A BASIC PROS. 
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***** SHARE TRANSACTION COSTS LII/4K (C) D. HARDIE ***** 

This is a short program which calculates brokerage and stamp duty costs on share transactions 
up to a value of $250,000. It is accurate for all Australian States except W.A. in which stamp 
duty will cost a few cents more for transactions below $100 value. Double-precision is used 
for the number, price and consideration variables to avoid annoying 1 and 2 cent errors in the 
total. Respond to the prompts in the program by entering the number of shares and then the 
price of the shares and the program will supply the information on the brokerage, stamp duty, 
buying cost and the selling proceeds. 



10 * SHARE TRANSACTION COSTS - LII/4K 
20 * BY D. L. HARDIE 



30 CLEAR : DEFDBLC , N , P s F*= " **## , ### . ## " 

40 CLS:PRINT364,"SHARE COSTS AND PROCEEDS CALCULATOR" : PR I NTSTR IN 

G* (35, 131): PRINT 

50 INPUT "NUMBER OF SHARES =";N 

60 INPUT"PRICE ="?P: PRINT 

70 C=P*Ns IFCOOOOTHEN B=5+C*. 025s SOTO 130 

80 I FC< 1 5000THEN B= 1 30+ < C-5000 ) * . 02 s GOTO 1 30 

90 IFCOOOOOTHEN B=330+ (C-15000) *, 015: 60T0130 

1 00 I FC< 250000THEN B=855+ < C-50000 ) * . 1 : GOTO 1 30 

110 PRINT" IF YOU HAVE MORE THAN *250,000 TO INVEST THEN YOU NEED 

1 20 PR I NT " A PROFESS I ONAL ADV I SER . " : G0T0200 

130 IFC< 100THENS=INT (C/25-. 0001 > *. 07+. 07 s GOTO 150 

140 S=INT<C/100-.00005)*.3+.3 

150 PR I NT "CONS I DERATION =" ; : PRINTTAB ( 18) USINGF*; C 

160 B= INT ( B* 1 00 )/100: PR INT "BROKERAGE ="; s PRINTTAB < 18) USINGF*;B 

170 PRINT"STAMP DUTY =";: PRINTTAB < 18) USINGF*; S 

ISO PRINT: PRINT"BUYING COST =";: PRINTTAB < 18) USINGF*; C+B+S 

190 PR I NT " SELL I NG PROCEEDS= " ; : PR I NTTAB ( i 8 ) US I NGF* : C-B-S 

200 PRINT3960, "TYPE E TO END ANY OTHER KEY TO CONTINUE"; 

210 G0SUB220: IFA*="E"THENEND ELSE 40 

220 * 

230 A*=INKEY*sA*="" 

240 A*= I NKE Y* s I F A*= " " THEN240ELSERETURN 



***** SHARE CHARTING LII/16K (C) D. HARDIE ***** 

This is a data handling system for day to day variations in share prices. It displays the data 
in graphical form on the screen. Logarithmic representation of share prices is used as equal 
distances on the screen represent equal percentage variation in value. The program is complicated 
somewhat by the need to handle different types of data, i.e. on a day to day and weekly chart, 
last sale prices are used, but for monthly charting a high and low range of prices is used and 
this complicates all of the data handling routines. 

OTHER USES. 

The program could be used by a retailer to chart retail sales or virtually any other requirement 
for displaying percentage variations in data. The program starts by asking the user if he wTshes 
to start a new file or load an old file. After this, the program displays the main menu which 
gives the following options :- 

A GRAPHIC DISPLAY OF THE DATA, (displayed on a graph) 

ADD DATA TO THE FILE. 

EDIT AND ADD DATA TO THE FILE. 

LIST THE FILE DATA. 
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CHANGE THE SCALE, (alter the scale of the users data, displayed on the graph) 
LOAD ANOTHER COMPANY DATA AND END. 

The program has been set up to operate with either a 16K cassette system or a 32K disk system 
for the data transfers. Simply respond to the prompts as to which type of system you have with 
either a "D" for disk or "T" for tape. Users not having a disk system connected should take 
care not to select the disk functions or the computer will lock up, making it necessary to press 
the reset button and, of course, losing your data at the same time. Options are also qiven 
to make back up copies of the data. 

All necessary instructions and prompts are given to the user by the program itself. 



10 » SHARE CHARTING PROGRAM 
20 * LII/16K TAPE (32K DISK) 
30 » BY D. L. HARD IE 



40 CLEARsCLEAR500:DEFINTD,N,X,V, Z:DIMD*(7) ,DM(12) , DM* (12) , P(280) 

50 Sl=43:S2=4:Fl*= ,, **#.## n :F*= , '## , ## , ##":D*=''-" 

60 F0RN=1T07:READD*(N) s NEXT: FORN= 1T01 2s READDM (N) , DM*(N) sNEXT 

70 

CLS:PRINT377,"**** STOCK MARKET MENU ****": PRINT 
80 PRim"" CREATE A NEW DATA FILE" , "TYPE 1 
90 PR INT "LOAD AN EXISTING FILE", "TYPE 2" 
1 00 S0SUB270 : I F A*= " 1 " THEN 1 20 
110 IFA*="2"THEN230ELSE70 
120 ' 

*** NEW DATA FILE **** 
130 CLS:S0SUB570 

140 Nl=20:N2=20sPRINT:IFAD*="D"THENINPUT ,, INPUT FILESPEC <EB. BHP 
/TXT) ";WF* 

150 INPUT"INPUT TITLE (EG. B H P)";W* 

160 INPUT" INPUT IF DATA TO BE DAILY, WEEKLY OR MONTHLY (D/W/M) : " 
; DA* s I FDA*= " D " ORDA*= " W " THEN 1 80ELSE 1 70 
1 70 I FDA*= " M " THEN200ELSE 1 60 

180 PRINT" INPUT DATE OF EARLIEST DATA; " : PRINTTAB ( 10) ; "DAY OF WEE 
K (EG SUN=1„ M0N=2, . ..., SAT=7) " ; : INPUTD4 
190 PRINTTAB ( 10) ; "DAY (1 TO 31 ) " ; s INPUTD1 
200 PR I NTT AB ( 1 > ; " MONTH ( 1 - 1 2 > " ; : I NPUTD2 
210 PR I NTT AB (10);" YEAR (EG. 80 ) " s : I NPUTD3 
220 G0SUB890 : GOSUB 1 680 s GOSUB 1 080 1 G0T0930 
230 * 

*** LOAD AN EXISTING FILE *** 
240 CLS : K 1 =0 : SOSUB570 : I FAD*= " T " THEN260 
250 CLS: INPUT "FILESPEC" ; WF* 
260 G0SUB770: G0SUB890: G0T0930 
270 ' 

**# HOLD ROUTINE **# 
280 A*=INKEY*:A*="" 

290 A*=INKEY*: IFA*=" "THEN290 ELSE RETURN 
300 "" 

*** DATE DATA #** 
3 1 O DD=D 1 s DM=D2 : DY=D3 : DN=D4 : RETURN 
320 * 

*** DATE INCREMENT *** 
330 IFDA*="M"THEN410 

340 DD=DD+ 1 : DN=DN+ 1 : I FDN=8THENDN= 1 
350 I FDD >DM ( DM ) THENG0SUB390 
360 IFDA*="W"THENIFDN< >D4THEN340 
370 I FDA*= " D " THEN I FDN= 1 0RDN=2THEN340 
3BO RETURN 

390 IFDD=DM (DM) +2THENDD=1 : G0T0410 

400 DD=1: IFDM=2ANDINT(DY/4)=DY/4THENDD=DM(DM)+1:G0T0360 
4 1 O DM=DM+ 1 : I FDM= 1 3THENDM= 1 : DY=DY+ 1 
420 RETURN 
430 * 

*** DATE DECREMENT *** 
440 IFDA*="M"THEN500 

450 DD=DD- 1 : DN=DN~ 1 : I FDN=OTHENDN=7 
460 IFDD=0THENG0SUB500 
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470 IFDA$="W"THENIFDN< >D4THEN450 

480 I FD A*= " D " THEN I FDN= 1 0RDN=2THEN450 

490 RETURN 

500 DM=DM- 1 : I FDM=0THENDM= 1 2 s DY=D Y- 1 

510 DD=DM(DM) 

520 I FDM=2 AND I NT < DY / 4 ) =D Y / 4THENDD=DM ( DM ) + 1 

530 RETURN 

540 * 

*** DATE PRINT OUT *** 
550 IFDA*="M"THENPRINTDM*<DM) ; 1900+DY; : RETURN 
560 PRINTD*<DN>;" "; :PRINTUSINGF*; DD; D*; DM; D*; DY; s RETURN 
570 ' 

*** TAPE/DISK QUESTION *** 
580 PR I NT SPRINT: PR I NT "TAPE OR DISK <T/D) ?" s G0SUB270: AD*=A* 
590 I F A*= " T " OR A*= " D " THENRETURNELSE580 
600 * 

*** OUTPUT *** 
610 IFK1=0THENRETURN 
620 IFN2>269THENN2=269 
630 CLS:G0SUB570 
640 IFAD*="T"THEN690 

650 I FWF*= " " THENI NPUT " F I LESPEC " ; WF* 
660 OPEN"0", 1,WF* 

670 PRINT* 1 , Dl ; D2; D3; D4; PI ; P2; P3; N2; W*; " , " ; DA* 
680 F0RN=N1T0N2: PRINT#1 , P <N) : NEXT: CLOSE: RETURN 
690 PRINTS 128," PRESS PLAY %>. RECORD BUTTONS ON CASSETTE 
WHEN READY HIT ANY KEY TO CONTINUE" : G0SUB270 
700 PRINT#-1 , W*, Dl , D2, D3, D4, PI , P2, P3, N2, DA* 
710 F0RN=N1T0N2+1STEP16 

720 PRINT#~1,P<N) ,P(N+1) ,P(N+2) ,P(N+3) ,P<N+4) ,P(N+5) ,P(N+6) ,P(N+ 
7),P(N+8),P(N+9),P(N+10),P(N+11> , P (N+12) , P <N+13) , P (N+14) , P (N+15) 
730 NEXT 

740 PRINT"DO YOU WANT TO RECORD THE DATA AGAIN ? < Y/N) " s G0SUB270 
750 IFA*="N"THENRETURN 
760 IFA*="Y"THEN690ELSE740 
770 * 

*** INPUT *** 
780 IFAD*="T' , THEN830 
790 OPEN" I" , 1,WF* 

800 Nl=20s INPUT* 1 , Dl , D2, D3, D4, PI , P2, P3, N2, W*, DA* 
810 F0RN=N1T0N2: INPUT* 1 , P (N) : NEXT 
820 CLOSE s RETURN 

830 CLS: PR I NTS 128, "PRESS PLAY BUTTON ON CASSETTE 
WHEN READY HIT ANY KEY TO CONTINUE" s G0SUB270 
840 INPUT#-1 , W*, Dl , D2, D3, D4, PI , P2, P3, N2, DA* 
850 N1=20:F0RN=N1T0N2+1STEP16 

860 INPUT#-1,P<N) ,P(N+1) ,P(N+2) , P (N+3) , P (N+4) , P (N+5) ,P(N+6) ,P(N+ 
7),P<N+8),P(N+9),P(N+I0),P(N+11),P(N+12),P(N+13) , P (N+14) , P (N+15) 
870 NEXT: RETURN 
880 » 

*** INITIAL DATA »** 
890 I FDA*= " M " THENWH*= " H I GH " s WL*= " LOW " : W 1 *= " MONTHLY " : V 1 =6 s V2=6 
0sV3=6 

900 IFDA*="D"THENWH*=" ": WL*=WH*s Wl*=" DAILY " s W2*=" FOUR WEEK 
DIVISIONS" : Vl=3s V2=63: V3=10 
910 IFDA*="W"THENWH*=" ": WL*=WH*: Wl*=" WEEKLY ": W2*=" SIX MONTH 

DIVISIONS" s Vl = l 1 s V2=63: V3=13 
920 RETURN 
930 * 

*** MAIN MENU **** 

940 CLSsPRINT374, "$« MENU - ";W*;" ";W1*;" ** *" sPRINTTAB ( 10) ST 

RING*(40,131) 

950 PR I NT " GRAPH I C D I SPLAY " , , " TYPE 1 " 

960 PR I NT "TO ADD NEW DATA",, "TYPE 2" 

970 PR I NT "TO EDIT AND ADD DATA", "TYPE 3" 

980 PR I NT "TO LIST DAT A",, "TYPE 4" 

990 PRINT"TO CHANGE THE SCALE", "TYPE 5" 

1000 PR I NT "LOAD ANOTHER COMPANY DATA", "TYPE 6" 

1010 PR I NT "SAVE DATA AND END", "TYPE 7" 

1020 G0SUB270 

1 030 A=VAL ( A* ) : ONAGOSUB 1440,1 080 ,1190,1370,1 680 , 600 , 620 

1040 IFA=7THENEND 

1050 IFA=6THEN40 

1060 60T0930 

1070 RETURN 

1080 
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tt* NEW DATA *tt 
1 090 CLS s K 1 = 1 : N=N2 s G0SUB300 s I FP ( N2 ) =0THEN 1 1 20 

1100 PR I NT "LAST ENTRY WAS " 5 TAB (26) ; ; G0SUB540: PRINTWH*; "PRICE = 
" ; P (N) : IFDA$="M"THENPRINTTAB (35) ; WL$; "PRICE =" : P (N-l > 
1110 G0T01140 

1120 PRINT"T0 EXIT TYPE " ; - G0SUB540: P (N) =0:PRINTWL* 

; "PRICE =" ; : INPUTP (N) : IFP (N) =0THEN1 150 

1130 IFDA*="M"THENPRINTTAB(35) sWH*; "PRICE =";: INPUTP (N+l ) ■ IFP<N+ 
1 ) =OTHEN 1 1 30ELSEN=N+ 1 
1140 N=N+1:G0SUB320:G0T01120 
1150 N=N-1 

1 1 60 GOSUB430 : N2=N s D 1 =DD : D2=DM : D3=D Y : D4=DN 

11701 FDA*< > " M " THEN I FN2 > 1 47THENN3=N2- 1 47 : FORN=N 1 TO 1 47 : P ( N ) =P ( N+N 
3):NEXT:N2=147 
1180 RETURN 
1190 * 

*** EDIT AND ADD DATA AT END OF LIST *** 
1200 CLS :N=N2:K1=1:T*=WH*:G0SUB300 : PR I NT" TO EXIT ENTER O" 
1210 IFT*=WH*THENG0SUB540 

1220 PRINTTAB(9);T*;"P("N") ="P(N);" NEW VAL OR <EN> IF OK"::T 
=-l:INPUTT 
1230 IFT=-1THEN1260 
1240 IFT=OTHEN1320 
1250 P(N)=T 
1260 IFP(N)=0THEN1320 

1 270 I FDA$= " M " THEN I FT$=WH$THENT$=WL* : GOTO 1 290 - ELSET$=WH$ 
1280 G0SUB430 
1290 N=N-1 
1300 IFN=2THEN1320 
1310 G0T01210 
1320 N=N+1 

1330 IFN>=N1THENRETURN 
1 340 I FT*< >WH$THENN=N+ 1 

1350 N3=20-NsN2=N2+N3sF0RN=N2T0NlSTEP-lsP(N)=P(N-N3) :NEXT 
1360 F0RN=1T019: P (N) =0: NEXT: G0T01 170 
1370 * 

ttt LIST DATA t*t 
1380 G0SUB300: CLS: PRINT; N=N2 
1390 G0SUB540:PRINTWH$; "PC'N") ="P<N) 

1400 IFDA$="M"THENN=N-i;PRINTTAB(9);WL*;"P("N") ="P(N> 
1410 IFN=N1THEN1430 
1 420 N=N- 1 ; G0SUB430 : GOTO 1 390 
1430 G0SUB270: RETURN 
1440 * 

*** GRAPHIC DISPLAY *** 
1450 CLS: F2= (S1-S2) / (LOG (P2> -LOG (PI ) ) : Fl=Si+F2*L0G (PI > 
1460 F0RX=15360T016320STEP64:P0KEX, 191: NEXT: PRINT3961, STRING* (62 
,176); 

1470 F0RV=V1T0V2STEPV3:F0RN=0T014:PRINT3N*64+V, ". ":sNEXTN,V 

1480 F0RP=PlT0P2STEPP3:Z=Fl-F2*L0G(P)sF0RN=0T0127STEP6:SET(N,Z): 

NEXTN;PRINTS>INT(Z/3)*64+l 5I USINGFl*;P;:NEXTP 

1490 PRINT5)975,W2$;:PRINT38,W*;" ";W1*;" PRICE" ; : G0SUB300: PRIN 

T" "::G0SUB540:PRINT.980, (P2-P1 ) *100/P1 5 "7- SCALE"; 

1500 IFDA*="M"THEN160O 

1510 X=126:N=N2:ZT=Fl-F2*LOG(P(N) ) 

1520 Z=F1-F2*LQG(P(N) ) : IFZ >470RZ<0THENG0SUB1590: RETURN 

1530 IFZ >ZT: FORZ 1=ZT+1T0Z : SET ( X , Z 1 ) : NEXT: G0T01560 

1540 IFZ<ZT:F0RZ1=ZT0ZT-1:SET(X,Z1):NEXT:G0T01560 

1550 SET(X,Z) 

1560 ZT=Z:X=X-1: IFX=0THENG0SUB270: RETURN 

1 570 N=N- 1 : I FN< N 1 THENG0SUB270 : RETURN 

1580 GOTO 1520 

1590 GOSUB270:CLS:PRINT5>448,"SCALE OVEFLOW - CHANGE SCALE" : GOSUB 
270: RETURN 

1600 Y=0:F0RX=1014T0966STEP-6:PRINT3X, 1900+D3-Y; : Y=Y+1 : NEXT: X=10 

1610 N=N2 

1620 Z1=F1-F2*L0G(P(N) ) : IFZ 1 >470RZK0THENG0SUB1590: RETURN 

1630 Z2-F1-F2*L0G (P (N-l ) ) : IFZ2>470RZ2<0THENG0SUB1590: RETURN 

1640 F0RZ=Z1T0Z2:SET(X,Z>:NEXTZ 

1650 X=X-l:IFX=OTHEN1670 

1 660 N=N-2 : I FN > 1 9THEN 1 620 

1670 G0SUB270: RETURN 

1680 * 
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**** SCALE CHANGING ROUTINE **** 
1690 CLS:K1 = 1:PRINT5)64,"GRAPH SCALE SELECTION AND CHANGING ROUT I 
NE" s PRINTSTRING* (40, 131 ) 

1 700 PR I NTP 1 ; TAB ( 20 ) ; " SELECT BASE PR I CE : " ; ; T=0 : I NPUTT s I FT< XJTHEN 
P1=T 

1710 IFP1=0THENPRINT"MUST BE A POSITIVE NUMBER" ; GOTO 1700 
1720 PRINTP2;TAB(20); "SELECT TOP PRICE; " ; : T=Os I NPUTT: IFTOOTHENP 
2=T 

1730 PR I NTP3; TAB (20); "SELECT DIVISION SIZE" ; ; T=0: INPUTT: IFTOOTH 
ENP3=T 
1740 RETURN 
1750 

D AT ASUN , MON , TUE , WED , THU , FR I , SAT 
1760 DATA31 , JAN 5 28, FEB, 31 ,'MAR, 30, APR, 31 , MAY, 30, JUN, 31 , JUL, 31 , AUG 
, 30, SEP, 31 , OCT, 30, NOV, 31 , DEC 



***** PSYCHIC MASTER LII/16K (C) G. EGEL ***** 

Psychic master was written to test the abilities of a person claiming to have psychic abilities. 
The program has three options (1) HUNCH, (2) TELEPATHY, (3) CLAIRVOYANCE. 

(1) HUNCH 

Selecting HUNCH enables a person to test his ability to predict a three digit number. The odds 
against doing this correctly are one thousand to one. The odds against predicting a two digit 
number correctly are fifty to one, and against predicting correctly a single digit, three to 
one. 

(2) TELEPATHY TEST 

Five different symbols are displayed on the screen in random order. One person must look at 
the screen and try to transmit the image displayed to the test subject who, of course, should 
not be in a position to see the screen. When the person being tested thinks he knows the symbol, 
he should say the name of the symbol he thinks he has received, and the person doing the transmitting 
should type in the test subject's response. The program provides 25 attempts then displays 
the results and announces if the results fall within the bounds of chance or if the person is 
likely to be telepathic. 

(3) CLAIRVOYANCE 

In this test the subject has to perceive the image that the computer would have displayed if 
it had been seen, and type in what they think the computer would have displayed. At the end 
of this test, results similar to the above test are displayed. 

10 REM## PSYCHIC MASTER ### 

20 REM ## COPYRIGHT GEOFFREY EGEL MARCH 19S0 ## 

30 REM # 18 STLIRT ST LOXTON 5333 # 

40 RANDOM; CLEAR 100:DIM B(25):DEFINT N,S,T 

50 CLS; PR I NT TAB (25) "PSYCHIC MASTER" s PRINT STRING* (64, 191 ) 

60 PRINT" (1) PSYCHIC NUMBER HUNCH TRAINER" s PRINT " (2) CLAIRVOY 

ANCE AND TELEPATHY TESTS": PRINT STRING* (64, 140 > 

70 A*=INKEY*;IF A*="" THEN 80ELSE IF A*= " 1 " " THEN 90ELSE IF A*="2 

" THEN 320 

80 FOR N=l TO 63; PRINT3576, TAB (N) "EXTRA SENSORY PERCEPTION" ; NEX 

T N: GOTO 70 

90 CLS: PRINT " PSYCHIC NUMBER GUESSING TRAINER" : PRINT STRING* (64 

,191); PRINT" INSTRUCTIONS Y/N" 

100 A*=INKEY*:IF A*="" THEN 100ELSE IF A*="N" THEN 140 

110 CLS; PRINT"THE AIM OF THIS PROGRAM IS TO TRAIN THE MIND TO P 

RECALL THE THREE DIGIT TARGET NUMBER , TO PLAY ENTER A THREE 

DIGIT NUMBER BETWEEN OOO - 999 " 
120 PR I NT "A HUNDRED TRIES PER DAY IS REQUIRED FOR EIGHT WEEKS TO 

ACHIEVE A GOOD RESULT AND AFTER THIS YOU MUST CONTINUE TO PRACT 
ICE TO REMAIN PROFICIENT 
130 INPUT "PRESS ENTER TO CONTINUE"; A* 
140 CLS 

150 RANDOM: FOR T=l TO lOO 
160 K=0 

170 A ( 1 ) =RND ( 10) -1 : A (2) =RND ( 10) -1 : A (3) =RND ( 10) -1 

180 A=A ( 1 ) : B=A (2) : C=A (3) : T*=STR* (A) +STR* (B) +STR* (C) : CLS: PRINT"PL 
ACE A THREE DIGIT NUMBER HERE PLEASE" 
190 X*=INKEY*:IF X*="" THEN 190ELSE A (4)=VAL ( X*) : PRINT X*; 
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200 Y*=INKEY*;IF Y*="" THEN 200ELSE A (5) =VAL (Y*) : PRINT Y*j 

210 Z*=INKEY*:IF Z*="" THEN 210ELSE A (6) =VAL (Z*) : PRINT Z* 

220 FOR N=i TO 3: FOR S=4 TO 6 

230 IF A(N)=A(S) THEN A <S> =20: A <N) =19: K=K + 1 

240 NEXT SsNEXT N 

250 IF K=3 THEN F=F+1 

260 IF K=2 THEN G=G+1 

270 IF K=l THEN H=H+1 

260 CLS;P*=X*+Y*+Z*:PRINT"TARGET ";Ts" WAS "sT*;" YOUR CHIOCE 

";P*;FOR Q=l TO 1000: NEXT Q 

290 NEXT T 

300 CLS:PRINT F; "CORRECT THREE DIGITS" : PRINT R; "CORRECT TWO DT 

GITS":PRINT H; "CORRECT ONE DIGITS" 

310 END 

320 CLS 

330 PRINT" GRAPHICS TEST FOR CLAIRVOYANCE AND TELEPATHY" ■- PRINT S 

TRING*<64 5 191) : PRINT" INSTRUCTIONS Y/N" 

340 A*=INKEY*:IF A*="Y" THEN 350ELSE IF A*='-N" THEN 390ELSE 34u 

350 PRINT3192," THIS SECTION CAN BE PLAYED I'M ONE OF TWO WAYS E 

ITHER AS A SELF TEST CLAIROYANCE WHERE YOU WILL NOT GET TO SEE T 

HE GRAPHICS OR AS A TEST FOR TELEPATHY WI FH TWO PERSONS" 

360 PR I NT "ONE SEEING THE IMAGE hND TRANSMITTING IT THE OTHER NOT 

SEEING AND TRYING TO PERCIEVE IT // THE FOLLOWING ARE THE S 
YMBOLS":FOR Q=l TO 4500: NEXT Q 
370 Z=Z+1: ON Z GOTO 570,580,590,600,620,390 
380 FOR Q=l TO 1000: NEXT Q:GOTO 370 

390 Z=0: PRINT "CLAIRVOYANCE OR TELEPATHY C/T":T=0 
400 N*=INKEY*: IF N*="C" OR N*="T" THEN 410ELSE 400 

410 FOR N=i TO 4: CLS: PR I NT "SHUFFLING WON'T BE LONG" .-FOR T=1 TO 2 
5 :B(T)=Os NEXT TsFOR F=l TO 5: FOR A=i TO 5 
420 S=RND ( 25 ) : I F B ( S ) =0 THEN B ( S ) =A : GOTO 440 
430 GOTO 420 

440 NEXT A:NEXT F:FOR T=l TO 25rCLS:IF N*="T" THEN ON BCT) G0T05 
70 , 580 , 590 , 600 , 620 ; ELSE CLS : PR I NT " CLA I RVOYANCE TARGET " ; T 
450 GOSUB 540 

460 NEXT Ts PR I NT "END OF TEST "jNsFOR Q=l TO 500: NEXT Q:NEXT N 
470 CLS: PRINT " E.S.P RATING SCALE": PR INT STRING* (63, 140) 
480 PRINT "# TESTS EXP RESULT SLIGHT SIGNIFICANT HIGH E=S,P": 
PRINT STRING* (63, 46) 
490 PRINT" 4 20 
500 PRINT" 10 50 
510 PRINT" 50 250 

520 PRINT" 100 500 501-539 540-559 560 OR MORE 
530 : PRINT STRING* (64, 140) s PRINT "SUBJECTS RATING FOR FOUR TESTS 

WAS";P: END 
540 PR I NT "SUBJECTS CHOICE" : PRINT" ( 1 ) RECTANGLE (2) CROSS (3) LIN 
ES (4) DIAMOND (5> PYRAMID" 

550 A*= I NKE Y* : I F A*= " " THEN 550ELSE s E=VAL < A* ) : I F < E >5 > OR ( E=n > THE 
N 550ELSE IF E=B(T)THEN P=P+1 
560 RETURN 

570 CLS: PR I NT TAB (23) "TELEPATHY TARGET" ; T: FOR K=l TO 9: PRINT T 
AB(14) STRING* (30, 191) : NEXT K: PRINT: PRINT TAB (23) "RECTANGLE" : IF Z 
=0 THEN 450ELSE 380 

580 CLS: PRINT TAB (23) "TELEPATHY TARGET" ; Ts PRINT: PRINT: FOR K=l 
TO 3: PRINT TAB (23) STRING* (9, 191 ): NEXT K:FOR K=l TO 3: PRINT TAB ( 1 
4) STRING* (27, 191) :NEXT KsFOR K=l TO 3 -.PRINT TAB (23) STRING*(9,1 
91): NEXT K : PRINT TAB (23) "CROSS" : IF Z=0 THEN 450ELSE 380 
590 CLS: PRINT TAB (23) "TELEPATHY TARGET" ; T: PRINT: FOR K=l TO 5: PR I 
NT TAB (14) STRING* (26, 191) : PRINT: NEXT K: PRINT TAB (23) "LINES" : IF Z= 
O THEN 450ELSE 380 

600 CLSs PRINT TAB (23) "TELEPATHY TARGET" ; T: PRINT: PRINT TAB(26)STR 
ING*(3, 191) : PRINT TAB (23) STRING* (8, 191) : PRINT TAB (21) STRING* (13 
,191): PRINT TAB (18) STRING* ( 18, 191 ) 

610 PRINi TAB (16) STRING* (22, 191): PRINT TAB (18) STRING* ( 18, 191 ): P 
RINT TAB (21) STRING* (13, 191): PRINT TAB (23) STRING* (8, 191 ): PRINT TAB 
(26) STRING* (3, 191): PRINT: PRINT: PRINT TAB (23) "DIAMOND" : IF Z=0 THEN 

450ELSE 380 

620 CLS: PRINT TAB (23) "TELEPATHY TARGET" ; T: PRINT: PRINT: PRINT TAB 
(27) STRING* (1, 191) : PRINT TAB (26) STRING* (3, 191 ): PRINT TAB(24)STR 
ING*(7, 191 >: PRINT TAB (22) STRING* < 12, 191 ): PRINT TAB(20) STRING* (1 
5,191) 

630 PRINT TAB(19)STRING*(17,191):PRINT TAB ( 17) STRING* (21 , 191 ): PR 
INT TAB (16) STRING* (23, 191) : PRINT : PRINT TAB (23) "PYRAMID" : IF Z=0 
THEN 450ELSE 380 
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21-27 


28-31 


32 OR 


MORE 


51 —62 


63-68 


69 OR 


MORE 


251-278 


279-292 


293 OR 


MORE 
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***** NEXT MONTH'S ISSUE ***** 



Next month's issue will contain at least the following programs plus the usual features and 
articles. 



** SHARE CHARTING LI/4K ** 

Just so you Level I folks won't feel left 
out of all this money-making that's going 
on after this month's Level 2 share market 
programs, next month we will have one just 
for you. Share charting draws a graph 
to display percentage rises and falls in 
share prices over a given period. 



** BLOW FLY LII/16K ** 

A really funny two -player game. Each player 
has to crawl the fly up the window without 
getting swatted or eaten by the spider. 
Complete with graphics. 



** BINGO LII/4K ** 

This program has actually been used in 
a club as a bingo caller. It can be used 
in two modes, as a two-player game of bingo 
or as an automatic bingo caller. It func- 
tions just like the real thing, CLICKETY 
CLICK. 



** GENIUS LII/16K ** 

This program is the one you have been waiting 
for. It will finally silence those friends 
of yours who are always complaining that 
your computer games are too easy. The 
only problem you will have now though is 
getting them to go home again. 



** STARSHOOT LII/4K ** 

This is a computer version of the very 

popular RUBIKS CUBE and if you have ever 

played with a Rubiks cube you just know 

right now that this program is going to 
drive you clear up the wall. 
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***** CASSETTE EDITION INDEX ***** 

The cassette edition of MICRO-80 contains all the software listed each month, on cassette. 
All cassette subscribers need do is CLOAD and RUN the programs. Level II programs are recorded 
on side 1 of the cassette. Level I programs are recorded on side 2. Level I programs are not 
compatible with the System 80. All programs are recorded twice in succession. The rates for 
a cassette subscription are printed on the inside front cover of each issue of the magazine. 



SIDE ONE 



TYPE 



I.D. 



DOG RACE 
it 


L2/4K 
ii 


D 


CHORD PRACTISE 
ii 


L2/4K 


C 


SHARE TRANSACTION COSTS 
n 


L2/4K 


S 


SHARE CHARTING 
ii 


L2/16K 
ii 


A 


PSYCHIC MASTER 
ii 


L2/16K 
n 


P 


PRIME GENERATOR 
ii 


SYSTEM 


PRYME 


■I 


EDTASM 


PRYME 



APPROX. START POSITION 
CTR-41 CTR-80 SYSTEM 80 



LIST DISABLE 

SIDE TWO 

INTERCEPT 
ii 

BREAKOUT 



L2/4K 
n 

L1/4K 
L1/4K 



7 
25 


5 
17 


5 
17 


43 
60 


29 
41 


29 
41 


77 
87 


52 
59 


52 
59 


100 
148 


67 
100 


67 
100 


194 
220 


131 
150 


131 
150 


250 
255 
260 
272 


169 
172 
175 
184 


169 
172 
175 
184 


287 
296 


194 
200 


194 
200 
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8 
36 
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148 
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100 
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A SPECIAL OFFER! 



TO 
SUBSCRIBERS OF 





FOR THE FIRST TIME IN AUSTRALIA! 

QENUJME TANDY TRS-80 MICRO-COMPUTERS, 
ARDWARE AND SOFTWARE AT 

GREAT DISCOUNT PRICES!!! 



HOW TO ORDER - 

1. SELECT ITEMS FROM 1980 TANDY CATALOGUE 

2. DEDUCT 10% FROM ADVERTISED PRICES 

3. POST US YOUR ORDER STATING DESCRIPTION 
CAT. No AND A CHEQUE OR MONEY ORDER. 

WE WILL - 

1. ATTEND TO YOUR ORDER WITHIN 7 DAYS * 

2. SUPPLY GOODS SELECTED FREIGHT FREE ! 

3. SEND ADVERTISING REGULARLY TO KEEP 
YOU INFORMED OF CURRENT SPECIALS ! 

* subject to availability 



IelectIonics 



>4i 



to CONQUEST ELECTRONICS Ry. Ltd. 
212 Katoomba St. KATOOMBA 2780 



Please supply - 

QTY. CAT NO DESC. 



ADV. PRICE 



SUB TOTAL 
LESS 1 Wo 
FIND CHEQUE FOR TOTAL 



SEND FREIGHT FREE TO 

NAME 

ADDRESS 



P/Code 



CONOUEH ELECTRONIC? 



PTY. LTD. 



212 KATOOMBA ST KATOOMBA N.S.W. 2780 PHONE (047) 82 2491 



MANUAL 



by Edwin Paay 

Published by MICRO-80 PRODUCTS 

Written by Eddy Paay, the LEVEL II ROM REFERENCE MANUAL is the most 
complete explanation of the Level II BASIC interpreter ever published. 

Part 1 lists all the useful and usable ROM routines, describes their functions 
explains how to use them in your own machine language programs and notes the 
effect of each on the various Z 80 registers. 

Part 1 also details the contents of system RAM and shows you how to intercept 
BASIC routines as they pass through system RAM. With this knowledge, you can 
add your own commands to BASIC, for instance, or position BASIC programs in 
high memory— the only restriction is your own imagination! 

Part 2 gives detailed explanations of the processes used for arithmetical 
calculations, logical operations, data movements, etc. It also describesthe various 
formats used for BASIC, SYSTEM and EDITOR/ASSEMBLER tapes. Each section 
is illustrated by sample programs which show you how you can use the ROM 
routines to speed up your machine language programs and reduce the amount of 
code you need to write. 

The LEVEL II ROM REFERENCE MANUAL is intended to be used by machine 
language programmers. It assumes a basic understanding of the Z 80 instruction 
set and some experience of Assembly Language programming. But BASIC 
programmers too will benefit from reading it. They will gain a much better insight 
into the functioning of the interpreter which should help them to write faster, more 
concise BASIC programs. 



